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VORWORT 

Es ist die Absicht dieses Buches, dern Leser zu zeigen, wie Mikro¬ 
computer in Basic programmiert werden. Der Unterschied zu vielen 
anderen Lehrbüchern ist vor allem in zwei Punkten zu sehen: 

1. Das Buch orientiert sich an einem bestimmten Basic-Dialekt. 
Dies erlaubt die eingehendere Behandlung von speziellen Eigen¬ 
schaften, wie zum Beispiel das Erstellen von Dateien. Das vor¬ 
liegende Lehrbuch zeigt hier alle vorhandenen Möglichkeiten 
auf. So werden sowohl die konventionellen Dateiformen (sequen¬ 
tielle und wahlfreie Zugriffsform) als auch eine Kombination 
aus beiden Zugriffsformen (skip sequential) behandelt. 

2. Das Buch geht von einem speziellen Betriebssystem aus. Dies 
wird in der sonstigen Literatur meist völlig vernachlässigt, 
obwohl kein Basic ohne unterstützendes Betriebssystem arbeits¬ 
fähig ist. Außerdem ist es als wesentlich zu betrachten, daß 
der Programmierer beide Programmsysteme und ihr Zusammenwirken 
verstanden hat. 

Bei dem beschriebenen Basic handelt es sich um das derzeit ge¬ 
bräuchlichste und am häufigsten verwendete Microsoft BASIC - 80. 
Das beschriebene Grundbetriebssystem CP/M ist zu einem vielver¬ 
wendeten Industriestandard geworden. In vielen Fällen, in denen 
dem Leser nicht genau die beschriebene Konfiguration zur Verfü¬ 
gung steht, kann man feststellen, daß auf dem Rechner ein mehr 
oder minder ähnliches Betriebssystem läuft. Es ist die Grundidee 
des Buches, daß das Programmieren am leichtesten zu erlernen ist, 
wenn man von Anfang an Programme schreibt. Deshalb enthält jedes 
Kapitel des Buches einen Teil mit praktischen Übungen. Die Pro¬ 
gramme, die im jeweiligen Teil vorgestellt werden, stellen eine 
Grundlage für die zu erlernenden neuen Konzepte dar. In einer 
Vorlesung können sie als Beispiele Verwendung finden. 

Wird das Lehrbuch zum Selbststudium herangezogen, sollte der Le¬ 
ser die jeweiligen Problemstellungen selbständig durcharbeiten. 
Eine Reihe von Kapiteln wird durch einen zugehörigen Anhang er¬ 
gänzt. So erklärt zum Beispiel der Anhang zum Kapitel 2 die Be¬ 
dienung des BASIC-80-Editors. Die Anwendung des in diesem Anhang 
erworbenen Wissens erleichtert das Schreiben und das Andern von 
Programmen ganz wesentlich. Andere Anhänge enthalten weitere 
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wertvolle Detailinforrnätioneri zu den im zugehörigen Kapitel be¬ 
handelten Themen. 

Das Buch versucht das Wie und Warum der jeweiligen Programmier¬ 
methode zu erklären, überall dort, wo dies notwendig ist, wird 
dem Leser erklärt, welche Vor- und Nachteile eine bestimmte Me¬ 
thode hat. Diese Eigenschaft trägt dem Umstand Rechnung, daß es 
ein großer Unterschied ist, ob eine Methode nur auswendig gelernt 
oder aber verstanden wird. Darüber hinaus enthält das Buch Kapi¬ 
tel, in denen Sortier- und Such verfahren, Simulation sowie das 
CP/M-Betriebssystem beschrieben werden. Das Buch schließt mit ei¬ 
nem Programm, das nahezu alle beschriebenen Befehle miteinander 
verknüpft. Dies ist für den Leser ebenso wertvoll wie auch lehr¬ 
reich. 

Es gibt einige Leute, denen ich besonders danken möchte: Frank 
Parker, der mir erklärte, was ein PRINT-Befehl ist, Dr. Marshall 
Dixon und John Freeland, die mir die Elektronik verstehen halfen, 
die einen Rechner zum Leben erweckt, sowie meinen Freunden und 
Kollegen Tim Leslie und Dr. J. B. Orris für ihre Unterstützung, 
ihre Anregungen und ihr Verständnis. Das Buch spiegelt außerdem 
das kritische Auge des Herausgebers und einer Reihe von Lektoren 
wider, deren Kommentare und Anregungen mir sehr willkommen waren. 
Zuletzt möchte ich meiner Frau Karol meine besondere Anerkennung 
aussprechen, die mich während der Zeit, als dieses Buch entstand, 
verständnisvoll unterstützte. 


J.J.P. 
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VORWORT ZUR DEUTSCHEN AUSGABE 

Es war nicht mein Bestreben, die englische Originalausgabe mög¬ 
lichst wortgetreu zu übersetzen. Vielmehr habe ich mich bemüht, 
eine gut verständliche Bearbeitung des Originals herzustellen. 
Soweit dies erforderlich war, wurden die Beispiele an unsere Ver¬ 
hältnisse angepaßt. Dennoch sind in diesem Buch englische Aus¬ 
drucke zu finden. Meiner Meinung nach ist es nicht sinnvoll, mit 
teilweise mühsam gefundenen Umschreibungen international ge¬ 
bräuchliche Terminologie ins Deutsche zu übertragen (letztlich 
sind Basic-Befehle auch englischsprachig!). Der Leser soll mit 
den Originalausdrücken vertraut werden, damit er an der - vorwie¬ 
gend aus dem anglo-amerikanischen Raum stammenden - Innovation in 
der Rechnertechnik teilhaben kann. 


Peter Luke 
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DER ERSTE SCHRITT 

Das Erlernen von Basic unterscheidet sich im wesentlichen nicht 
vom Erlernen irgendeines anderen Wissensgebietes; es verlangt 
viel Übung, üben heißt in diesem Fall, daß Sie am Rechner sitzen 
und Programme schreiben sollten. Wir gehen davon aus, daß Sie vor 
einem Rechner sitzen und die folgende Bereitschaftsanzeige auf 
dem Bildschirm sehen: 

A> 

Diese Zeichen erscheinen auf dem Bildschirm, wenn CP/M als Be¬ 
triebssystem geladen ist. Im Moment wollen wir uns nicht mit 
Details von CP/M beschäftigen. Dazu werden wir später noch Gele¬ 
genheit finden. Momentan hilft es uns, mit dem Rechner zu kommu¬ 
nizieren. Um dies zu unterstreichen, geben Sie bitte Ihren Namen 
ein. Wenn ich meinen Namen eingebe, passiert folgendes auf dem 
Schirm: 

A >JACK 


Die unterstrichenen Teile des Textes geben wieder, was Sie über 
die Tastatur eingegeben haben. Das Zeichen am Ende meines Namens 
wird als Cursor bezeichnet und zeigt auf die Stelle, an die das 
nächste eingegebene Zeichen geschrieben wird. Der Cursor kann ein 
"Unterstreichungszeichen" oder ein Block sein. Unabhängig vom 
Cursor-Zeichen steht der Cursor jetzt am Ende des Namens und war¬ 
tet darauf, daß Sie die nächste Taste drücken. 

Nachdem wir unseren Namen eingegeben haben und nichts passiert 
ist, muß der Rechner wohl darauf warten, daß wir noch etwas tun. 
Wenn Sie die Tastatur anschauen, so werden Sie eine RETURN- oder 
eine ENTER-Taste vorfinden (diese befindet sich üblicherweise am 
oberen rechten Rand der Tastatur). Manchmal sind die Beschriftun¬ 
gen auch als RET oder ENT abgekürzt. Jetzt drücken Sie die 
RETURN- (oder die ihr entsprechende) Taste. Selbst wenn Sie kei¬ 
nen ungewöhnlichen Namen haben, werden Sie folgendes auf dem 
Bildschirm sehen: 

A>JACK 

JACK? 
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Wir haben dem CP/M-Betriebssystem nach dem Drücken der RETURN-Ta- 
ste einen Befehl mit dem Namen JACK eingegeben. Das erste, was 
CP/M nun tat (und zwar ziemlich schnell), war, daß es prüfte, ob 
JACK ein gültiger Befehl ist. Nachdem diese Überprüfung negativ 
verlief, versuchte CP/M ein Programm mit dem Namen JACK zu fin¬ 
den, um es auszuführen. Weil aber auf der Diskette kein solches 
Programm existiert, beendete CP/M den Versuch, den Befehl JACK 
auszuführen und sendete uns eine Fehlermeldung in Form des Frage¬ 
zeichens. Nachdem dieser erste Versuch, mit dem Rechner in Ver¬ 
bindung zu treten, nicht besonders viel einbrachte, wollen wir 
jetzt etwas anderes versuchen. Geben Sie bitte 

A>DIR 

ein, und drücken Sie abschließend wieder die RETURN-Taste. Dar¬ 
aufhin sollte nun folgendes (oder zumindest etwas ähnliches) auf 
dem Bildschirm zu sehen sein: 

A>DIR 

AlMBASIC COM : TEST BAS : CONSOL ASM : TIME BAS 

A:SALES DAT : STAT COM : PARMD BAK : PR0G1 BAS 

A>_ 

Mit dem DIR-Befehl haben wir das Betriebssystem veranlaßt, uns 
ein Inhaltsverzeichnis (directory) aller auf der Diskette in 
Laufwerk A befindlichen Dateien (files) auszugeben (das A in der 
Bereitschaftsanzeige sagt uns, daß wir derzeit die Diskette im 
Laufwerk mit der Bezeichnung A benutzen). 

CP/M antwortete auf den DIR-Befehl mit A: (was uns an zeigt, daß 
der Befehl auf Laufwerk A angewendet wird), gefolgt von einer Li¬ 
ste der auf A gespeicherten Dateien. Jede dieser Dateien stellt 
eine Sammlung von Daten dar, die zu einem früheren Zeitpunkt auf 
der Diskette abgelegt wurden und auf die jetzt unter Angabe des 
angezeigten Namens zugegriffen werden kann. (z.B. MBASIC.COM, 
TEST.BAS etc.) Wir werden in Kürze einige Details der Disketten- 
Dateien erörtern. 

Die Tatsache, daß Ihr Name eine Fehlermeldung hervorrief und daß 
der DIR-Befehl die Dateien auf der Diskette anzeigte, führt uns 
zu einem wichtigen Ergebnis: Es gibt nur eine begrenzte Anzahl 
von Befehlen, die von CP/M verarbeitet werden. Wenn CP/M ein Kom- 
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mando nicht versteht, wird eine Fehlermeldung gesendet (normaler¬ 
weise wird das Kommando zusammen mit einem Fragezeichen ausgege¬ 
ben) . 

Wenn Ihr Computer über zwei Diskettenlaufwerke verfügt, dann ver¬ 
suchen Sie die folgende Eingabe: 

A>DIR Bi. 

und drücken Sie die RETURN-Taste. Wenn sich in B eine Diskette 
befindet, werden Sie jetzt eine Liste der Dateien auf B erhalten. 
CP/M versteht noch eine ganze Reihe anderer Befehle im Zusammen¬ 
hang mit DIR, denen wir uns in einem späteren Kapitel zuwenden 
werden. Bevor wir fortfahren, wollen wir uns noch anschauen, in 
welcher Form CP/M-Dateien auf der Diskette gefunden werden. Die 
allgemeine Form eines CP/M-Dateinamens ist 

Dateiname.Dateityp 

Der Dateiname kann bis zu acht Zeichen lang sein und stellt den 
primären Namen der Datei dar. Der Punkt trennt den Dateinamen vom 
Dateityp. Der Dateityp ist auf drei Zeichen Länge beschränkt und 
kennzeichnet üblicherweise die Entstehungsweise einer Datei. 
Seine Angabe ist nicht zwingend erforderlich. Zum Beispiel iden¬ 
tifiziert der Dateityp BAS ein Programm, das mit BASic erstellt 
wurde. Wenn wir ein Basic-Spielprogramm mit dem Namen SPIEL auf 
der Diskette hätten, so würde dies im Dateienverzeichnis als 
SPIEL.BAS eingetragen sein. Eine andere wichtige Dateikennzeich¬ 
nung ist der Typ COM. Eine COM-Datei kann von CP/M direkt in den 
Speicher geladen und sofort als Programm ausgeführt werden. Um 
eine Liste aller gespeicherten COM-Dateien zu erhalten, müssen 
Sie eingeben: 

A>DIR *.COM 

Drücken Sie die RETURN-Taste und sehen Sie, was geschieht: Der 
Befehl verlangt eine Liste aller Dateien (gekennzeichnet durch 
das Sternchen) mit dem speziellen Dateityp COM. Das Sternchen 
wird hier als Platzhalter für alle Dateinamen verwendet, was 
heißt, daß das Inhaltsverzeichnis der Diskette nach allen Dateien 
mit dem Typ COM durchsucht wird. 
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Was wird nun geschehen, wenn wir 
A>DIR *.* 
eingeben ? 

Weil wir das Sternchen für den Dateinamen und den Dateityp ver¬ 
wendet haben, enthält die ausgegebene Liste alle Dateien, die 
sich auf der Diskette befinden. Daraus läßt sich schließen, daß 
das Sternchen als Platzhalter für eine Gruppe von Namen verwend¬ 
bar ist, ohne diese Namen einzeln aufführen zu müssen. 


ÜBUNGEN 

Was veranlassen die folgenden CP/M-Befehle ? 

DIR PROGRAMM.* 

DIR #,BAS 
DIR *.COM 
DIR B:*.* 

DIR b:*.com 
DIR B:*.BAS 


WIE LADT MAN BASIC? 

Nachdem Sie nun etwas Erfahrung mit dem Auflisten von Dateiver¬ 
zeichnissen erworben haben, lassen Sie sich die Dateienliste von 
Laufwerk A ausgeben und versuchen Sie eine Datei mit dem Namen 
MBASIC.COM zu finden. Dies ist der Name der Microsoft-Version von 
Basic, genannt BASIC - 80. Dieses Basic werden wir für alle Pro¬ 
grammbeispiele, die in diesem Buch zu finden sind, verwenden. 
Nachdem dies eine COM-Datei ist, kann Sie von CP/M direkt in den 
Speicher geladen und ausgeführt werden. Wie bekommen wir das Ba¬ 
sic nun von der Diskette in den Arbeitsspeicher unseres Rechners? 
Ganz einfach, wir lassen uns diese Arbeit vom CP/M abnehmen. Der 
Dateityp COM sagt dem CP/M, daß es sich bei MBASIC um eine C0M- 
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mand-Datei handelt, die im Arbeitsspeicher direkt ausgeführt wer¬ 
den kann. Alles, was wir nun noch zu tun haben, ist, dem Rechner 
den Dateinamen zu geben und ihm die Kleinarbeit zu überlassen: 

A> MBASIC 

Einige Sekunden, nachdem Sie RETURN gedrückt haben, sollten Sie 
auf dem Bildschirm Ihres Rechners den MICROSOFT-Schriftzug mit 
der Versionsnummer Ihrer BASIC-80-Version sehen. Dieser Schrift¬ 
zug endet mit dem Wort Ok. Wenn dieses Ok. auf dem Bildschirm 
sichtbar wird, dann heißt das, daß CP/M die Kontrolle über den 
Rechner an BASIC-80 weitergegeben hat und daß wir nun im "direk¬ 
ten Modus" des Basic sind. Der direkte Modus (auch Command-Modus) 
erlaubt uns das Kommunizieren mit dem Rechner über BASIC-80. Daß 
das der Fall ist, können Sie leicht feststellen, indem Sie das 
CP/M-DIR-Kommando eingeben und folgendes auf dem Schirm sehen: 

DIR 

Syntax error 

Dies zeigt, daß BASIC-80 (im folgenden B-80 genannt) den CP/M-Be- 
fehl DIR nicht verarbeiten kann. Warum ist das so ? Der Grund da¬ 
für ist, daß in B-80 DIR nicht definiert ist. Innerhalb von B-80 
ist ein fest umrissener Befehlssatz verfügbar, der nicht mit den 
CP/M-Befehlen übereinstimmt. Immer, wenn Sie innerhalb von B-80 
etwas eingeben, wird diese Eingabe daraufhin überprüft, ob sie 
innerhalb dieses Befehlssatzes vorhanden ist oder nicht. Wenn 
zwischen keinem der vorhandenen Befehle und Ihrer Eingabe eine 
Übereinstimmung gefunden wird, dann gibt B-80 die Meldung "Syntax 
error" aus. B-80 nimmt keine fehlerhaften Befehle an, seine Syn- 
tax-error-Nachricht teilt Ihnen mit, daß es mit einer Eingabe 
nichts anfangen kann. Deshalb ist es zuerst einmal notwendig, daß 
Sie die in B-80 erlaubten Befehlswörter lernen. Nun wollen wir 
einmal einen Befehl eingeben, den B-80 verstehen kann. Bitte 
geben Sie 

FILES 


und RETURN ein. Jetzt können Sie wieder das Disketten-Inhaltsver- 
zeichnis sehen. Oder anders formuliert, der Befehl FILES in B-80 
hat die gleiche Wirkung, wie der Befehl DIR in CP/M. Nun versu¬ 
chen wir noch eine andere Variation des FILES-Befehls: 
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FILES "B:*.*" 

Nach dem Drücken der RETURN-Taste sehen Sie jetzt das Disketten- 
Inhaltsverzeichnis der in Laufwerk B befindlichen Diskette. Wie 
zuvor veranlaßt der Befehl die Ausgabe des jeweiligen Disketten¬ 
inhalts. Wenn Sie nun, wie ganz am Anfang, wieder Ihren Namen 
eingeben, erhalten Sie wieder eine Syntax-error-Meldung. Dies ist 
so, weil Ihr Name natürlich auch im Verzeichnis der BasicBefehle 
nicht enthalten ist. Ihr Name ist kein sogenanntes "Schlüssel¬ 
wort” innerhalb von B-80. Ein Schlüsselwort (auch reserviertes 
Wort) ist ein Wort, das von B-80 verstanden werden kann und das 
eine ganz spezielle nur diesem Wort zugeordnete Aktion Ihres 
Rechners auslöst. Der Befehlssatz von B-80 besteht demnach aus 
einer Reihe von Schlüsselworten. 


DIE PRINT-ANWEISUNG 

Eines der Schlüsselwörter, die im Befehlssatz von B-80 definiert 
sind, ist das Kommando PRINT. Versuchen Sie die nächste Eingabe, 
gefolgt von RETURN. 

PRINT 10 
10 
Ok 

Die Eingabe von RETURN am Ende eines jeden Befehls ist erforder¬ 
lich, um dem Basic mitzuteilen, daß es mit der Ausführung des 
Kommandos beginnen kann. Wenn Sie RETURN vergessen, wird der 
Rechner so lange warten, bis er ein RETURN erhält (alle Eingaben 
sind, soweit nicht anders vermerkt, mit RETURN abzuschließen). 

Was kann man nun mit PRINT noch alles machen? Versuchen Sie: 

PRINT 4+6 
10 
Ok 

Wie Sie sehen können, wird das Ergebnis 10 und die Bereitschafts¬ 
anzeige Ok ausgedruckt. Das gleiche passiert, wenn Sie eine Sub¬ 
traktion ausführen. Nun wollen wir noch einmal versuchen, Ihren 
Namen auszudrucken: 
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PRINT JACK 
0 

Ok 

Die ausgegebene Null zeigt, daß B-80 nicht versteht, was wir 
jetzt versucht haben. JACK wird von B-80 als Variable betrachtet, 
deren Inhalt null ist, weil ihr noch kein anderer Wert zugewiesen 
wurde. Immer, wenn wir Text ausdrucken wollen, müssen die darzu¬ 
stellenden Zeichen von Anführungszeichen eingerahmt sein. Beim 
nächsten Versuch wollen wir dies berücksichtigen: 

PRINT "JACK" 

JACK 

Ok 

B-80 geht davon aus, daß jede auszugebende Zeichenkette mit einem 
Anführungszeichen beginnt und endet. 


ÜBUNGEN 

1. Wie sieht der Befehl aus, mit dem Sie im direkten Modus von 
BASIC-80 Ihren vollständigen Namen ausdrucken können? 

2. Die /-Taste wird als Zeichen für die Division benützt. Wie muß 
ein Befehl aussehen, der das Ergebnis von 33 geteilt durch 2 
ausdruckt? 

3. Die #-Taste repräsentiert die Multiplikation. Wie sieht der 
Befehl aus, der das Quadrat von 15 ergibt? 


DAS ERSTE PROGRAMM 

Obwohl die vorher absolvierten Beispiele einige der Funktionen 
von B-80 benützten, haben wir bis jetzt eigentlich noch nicht 
programmiert. Im direkten Modus, in dem wir uns bisher befanden, 
kontrolliert B-80 noch alle ablaufenden Aktionen. Wenn wir aber 
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ein Programm laufen lassen, dann gibt B-80 die Kontrolle an die¬ 
ses Programm ab. Dann 'sagt' das Programm B-80, was getan werden 
soll und nicht mehr Sie oder ich. Ein Programm ist nichts anderes 
als eine Aneinanderreihung von Befehlen, die B-80 (und damit 
letztlich den Computer) anweisen, das von Ihnen gewünschte zu 
tun. Jedes Basic-Programm muß zahlreiche Regeln einhalten, um 
einwandfrei abzulaufen. Wenn Sie in B-80 programmieren, dann be¬ 
steht jedes Programm aus einer oder mehreren Programm Zeilen. Jede 
dieser Zeilen enthalt eine Zeilennummer und einen oder mehrere 
Befehle. Die allgemeinste Form einer Programmzeile ist 

xxxx Anweisung 

xxxx Zeilennummer, sie ist ganzzahlig (integer) und muß 

im Bereich zwischen 1 und 65529 liegen 

Anweisung = gültiger B-80-Befehl 

Sehen wir uns als Beispiel das folgende, sehr einfache Programm 
an: 


10 PRINT "DIES IST EIN PROGRAMM” 

20 END 

Wenn Sie dieses Programm in Ihren Rechner eingeben wollen, so 
vergewissern Sie sich vorher, daß Sie die Bereitschaftsanzeige Ok 
sehen. Wenn das der Fall ist, befinden Sie sich im direkten Modus 
und können das Programm jetzt eintippen. Geben Sie die erste Zei¬ 
le, beginnend mit der Zeilennummer 10, ein und vergessen Sie 
nicht, nach dem letzten Anführungszeichen RETURN zu drücken. Dies 
ist notwendig, um die Zeile in den Speicher des Rechners zu über¬ 
nehmen. Danach geben Sie bitte Zeile 20 ein. 

Jetzt steht das Programm im Speicher - oder etwa doch nicht? 


DAS AUSFÜHREN EINES PROGRAMMS 

Um ein im Speicher befindliches Programm zu sehen, können wir den 
Befehl LIST verwenden. Versuchen Sie jetzt mit LIST festzustel¬ 
len, ob das Programm tatsächlich gespeichert wurde. Das LIST-Kom- 
mando sollte folgendes Ergebnis zeigen: 
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LIST 

10 PRINT "DIES IST EIN PROGRAMM" 

20 END 
Ok 

Achten Sie darauf, daß die Zeilen in einem spater noch ausführ¬ 
lich beschriebenen Format ausgegeben werden. Jede Programmzeile 
beginnt mit der ganzzahligen Zeilennummer, die im zulässigen Be¬ 
reich liegen muß, gefolgt von einem gültigen B-80-Befehl. Der Be¬ 
fehl in der Zeile 10 ist das Schlüsselwort PRINT, gefolgt von ei¬ 
ner in Anführungszeichen eingeschlossenen Zeichenkette, die wir 
ausgegeben haben wollen. In Zeile 20 finden wir das Schlüsselwort 
END, das von B-80 benützt wird, um das Programmende zu kennzeich¬ 
nen. 

Jetzt ist also ein Programm im Speicher und wir sind so weit, es 
ausführen zu lassen. Dazu verwenden wir den Befehl RUN. Er veran¬ 
laßt B-80, das momemtan im Speicher des Rechners befindliche Pro¬ 
gramm auszuführen. Immer, wenn Sie ein Basic-Programm mittels RUN 
starten, steht der Rechner unter der Kontrolle dieses Programms. 
Dies bedeutet, daß wir den direkten Modus verlassen haben und daß 
wir uns jetzt im Ablaufmodus befinden. Sie sollten nicht versu¬ 
chen, in den direkten Modus zurückzukehren, bevor das Programm 
beendet ist und die Ok-Bereitschaftsanzeige wieder erscheint. Nun 
wollen wir unser Programm laufen lassen. 

RUN 

DIES IST EIN PROGRAMM 
Ok 

Der RUN-Befehl veranlaßte B-80, in den Ablaufmodus zu gehen und 
den Text auf dem Bildschirm auszugeben. Als B-80 die END-Anwei- 
sung in Zeile 20 gefunden hatte, ging es in den direkten Modus 
zurück und zeigte dies mit Ok an. 
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ÜBUNGEN 


Nehmen Sie die Aufgaben der vorangegangenen Übung und wandeln 
Sie diese jeweils in ausführbare Programme um. 


WIE HAN EIN PROGRAMM ÄNDERT 

Im Laufe Ihres Programmiererlebens werden Sie oft vor der Aufgabe 
stehen, Programmzeilen zu Programmen hinzuzufügen oder Zeilen zu 
löschen. Zuerst wollen wir uns anschauen, wie neue Programmzeilen 
eingegeben werden können. 


WIE EINE PROGRAMMZEILE EINGEFÜGT WIRD 

Nehmen wir an. Sie wollen an ein existierendes Programm eine Zei¬ 
le anfügen, die die Nachricht DIES IST EINE NEUE ZEILE auf den 
Bildschirm bringt. Betrachten wir mit Hilfe von LIST das im Spei¬ 
cher stehende Programm. 

LIST 

10 PRINT "DIES IST EIN PROGRAMM" 

20 END 
Ok 

Zuerst müssen Sie entscheiden, ob der neue Text vor oder nach dem 
alten Text ausgegeben werden soll. Wenn Sie sich dafür entschei¬ 
den, den neuen Text nach dem alten auszugeben, dann muß die ver¬ 
wendete Zeilennummer > 10 sein. Warum ist das so? 

B-80 arbeitet die Programm zeilen in der Reihenfolge ihrer Zeilen¬ 
nummer ab. Wenn wir nun die neue Nachricht nach der alten ausge¬ 
druckt haben wollen, muß die neue Zeile eine Nummer zwischen 11 
und 19 haben (wichtig: die Nummer muß natürlich ganzzahlig sein!) 
Wenn wir eine Zahl > 20 verwenden, kann die Zeile vom Rechner 
nicht bearbeitet werden, weil er bereits vorher die END-Anweisung 
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findet und den Programmlauf beendet. Verwenden wir als neue Zei¬ 
lennummer die Zahl 15. Um die neue Zeile einzugeben, müssen Sie 
nur die neue Zeilennummer und die neue Anweisung eingeben: 

15 PRINT M DIES IST EINE NEUE ZEILE M 
Ok 

mit LIST können Sie nun sehen: 

LIST 

10 PRINT "DIES IST EIN PROGRAMM" 

15 PRINT "DIES IST EINE NEUE ZEILE" 

20 END 
Ok 

Wie Sie sehen können, ordnet Basic die Zeilennummern automatisch 
in der aufsteigenden Reihenfolge. Außerdem hat es die Zeile am 
richtigen Platz eingefügt. Dies führt uns zu einer wichtigen Kon¬ 
sequenz. Sie sollten zwischen den Zeilennummern immer etwas Platz 
lassen, um vergessene Programmzeilen leicht einfugen zu können. 
Viele Programmierer beginnen deshalb neue Programme immer mit der 
Zeilennummer 10 und erhöhen die Nummer um jeweils zehn für jede 
hinzukommende Zeile. Dadurch stehen für spätere Ergänzungen neun 
freie Zeilen zur Verfügung. 

Wenn wir jetzt unser neues Programm ausführen lassen, können Sie 
folgendes sehen: 

RUN 

DIES IST EIN PROGRAMM 
DIES IST EINE NEUE ZEILE 
Ok 


WIE EINE ZEILE GELÖSCHT WIRD 

Nehmen wir an, daß wir jetzt den neuen Text vor dem alten Text 
ausgedruckt haben wollen. Das heißt, wir müssen Zeile 15 löschen 
und mit einer neuen Zeilennummer, die jetzt < 10 sein muß, wieder 
neu eingeben. 
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Um eine Zeile zu löschen, muß nur die Nummer der Zeile, gefolgt 
von RETURN, eingegeben werden. Achten Sie darauf, daß sich nach 
der Zeilennummer kein Leerraum befindet. Vergewissern Sie sich, 
ob die Zeile 15 wirklich gelöscht worden ist. 


ÜBUNGEN 

1. Schreiben Sie das bisher benutzte Programm so um, daß der neue 
Text vor dem alten erscheint. 

2. Ändern Sie die Zeilennummer der Zeile mit dem Text DIES IST 
EINE NEUE ZEILE so, daß sie größer ist als die der Zeile mit 
der END-Anweisung. Lassen Sie das Programm laufen und untersu¬ 
chen Sie, was passiert und warum es passiert. 


NENN KEINE ZEILENNUMMER MEHR FREI IST 

Nehmen wir an, das folgende Programm stünde im Speicher: 

1 PRINT "WENN ES" 

2 PRINT "NOTWENDIG WIRD" 

3 END 

Nun stellen wir fest, daß zwischen den Zeilen 1 und 2 der Text 
WÄHREND DES LEHRGANGS eingefügt werden muß. Da wir nur ganzzah¬ 
lige Zeilennummern verwenden dürfen (1.5 oder ähnliches scheidet 
deshalb aus !), steht uns kein Platz mehr zur Verfügung. 

Glücklicherweise verfügt B-80 über eine Funktion, die es uns er¬ 
laubt, dieses Problem auf einfachste Weise zu lösen. Der RENUM- 
Befehl ist ein Kommando, das im direkten Modus angewendet wird 
und das das ganze Programm mit neuen Zeilennummern versieht. Da¬ 
bei erhält die erste Zeile die Nummer 10, und alle nachfolgenden 
werden im Abstand 10 neu durchnumeriert. 
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In unserem Beispiel hat RENUM folgende Wirkung: 

RENUM 

Ok 

LIST 

10 PRINT "WENN ES" 

20 PRINT "NOTWENDIG WIRD” 

30 END 
Ok 

Der RENUM-Befehl hat neue unbenutzte Zeilennummern erzeugt, so 
daß wir nun unsere Ergänzung in das Programm einfügen können. 


ÜBUNGEN 

1. Fugen Sie die im vorangegangenen Beispiel zitierte Zeile so in 
das Programm ein, daß der Text an der richtigen Stelle ausge¬ 
druckt wird. 

2. Benützen Sie erneut das RENUM-Kommando, und sehen Sie sich an¬ 
schließend mit LIST das Programm an. Welche Veränderungen kön¬ 
nen Sie feststellen? 

3. Schreiben Sie ein Programm, das nach dem Text "DAS ERGEBNIS 
IST " das Resultat von 2 mal 256 ausdruckt. 


MEHR ÜBER DIE PRINT-ANWEISUNG 

B-80 bietet uns vielfältige Möglichkeiten, Ausgaben auf den Bild¬ 
schirm zu bringen. Um davon eine Vorstellung zu bekommen, geben 
Sie bitte das nächste kurze Programm ein. 

10 PRINT 10,20,30 
20 END 
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Wenn Sie dieses Programm laufen lassen, dann produziert es fol¬ 
gende Ausgabe: 

RUN 

10 20 30 

Ok 

B-80 druckt die Zahlen automatisch mit einem Abstand aus. Jede 
Zeile wird dabei in mehrere Teile untergliedert, von denen jeder 
14 Leerraume groß ist, wenn die Ausgabeparameter durch Kommas ge¬ 
trennt sind. Jede Ausgabe erscheint dann in einem eigenen Be¬ 
reich. Wenn wir Zeile 10 in 

10 PRINT 10:20:30 

ändern und das Programm erneut ablaufen lassen, dann ergibt sich: 
RUN 

10 20 30 

Ok 

In dieser Version des Programms sind die Ausgabewerte jeweils 
zwei Leerräume voneinander entfernt. Setzt man Strichpunkte zwi¬ 
schen die Werte, so gibt B-80 nach jeder Zahl zusätzlich einen 
Leerraum aus. Der zweite Leerraum ist vorhanden, weil B-80 dort 
Platz für das Vorzeichen der Zahl reserviert. Wenn die Zahl, wie 
in unserem Fall, positiv ist, wird das Vorzeichen nicht ausgege¬ 
ben. 

Wenn wir nun das Programm um eine Zeile ergänzen 

10 PRINT 10:20:30 
15 PRINT 40:50 
20 END 

und es wieder laufen lassen, erhalten wir: 

RUN 

10 20 30 

40 50 

Ok 
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Setzen wir nun noch an das Ende der Zeile 10 einen Strichpunkt, 
dann sieht das Ergebnis so aus: 

RUN 

10 20 30 40 50 

Ok 


Hier wird noch eine Wirkung des Strichpunkts in einem PRINT-Be- 
fehl sichtbar. Immer, wenn sich am Ende einer PRINT-Anweisung ein 
Strichpunkt befindet, wird die nächstfolgende Ausgabe in dieselbe 
Zeile geschrieben. Nun wollen wir in Zeile 10 nochmals etwas än¬ 
dern. Anstelle der Strichpunkte werden die Zahlen jetzt mit Leer¬ 
räumen getrennt: 

10 PRINT 10 20 30: 

Lassen Sie das Programm laufen. 

RUN 

10 20 30 40 50 

Ok 

Wie aus dem Ergebnis des Programmlaufs sichtbar wird, faßt B-80 
die Leerräume auf, als stünden dort Strichpunkte. Deshalb werden 
Zahlen, die innerhalb eines PRINT-Befehls mit Leerräumen getrennt 
sind, auch mit Leerräumen ausgegeben. 


ÜBUNGEN 

1. Wie sieht der Ausdruck aus, der vom nachfolgenden Programm er¬ 
stellt wird ? 

10 PRINT "DIE ANTWORT LAUTET:" 2*2 
20 END 


Geben Sie das Programm ein und überprüfen Sie, ob es das tut, 
was Sie vorher erwartet haben. 
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2. Geben Sie das folgende Programm ein und bringen Sie es zur 
Ausführung. 

10 PRINT 2.100000000000 
20 END 

Wie schaut der Ausdruck aus, und was schließen Sie daraus? 


ANFÜHRUNGSZEICHEN UND PRINT 

Wie wir bereits früher gesehen haben, muß jede Zeichenkette, die 
ausgedruckt werden soll, in Anführungszeichen gesetzt werden. Die 
Anführungszeichen teilen dem B-80 mit, wo Anfang und Ende der in 
einer Programmzeile befindlichen Textsequenz liegen. Geben Sie 
das folgende kurze Programm ein, damit wir mit dem PRINT-Befehl 
und mit den Anführungszeichen experimentieren können. 

10 PRINT "WENN ES" 

20 PRINT "WÄHREND DES LEHRGANGS" 

30 PRINT "NOTWENDIG WIRD" 

40 END 

Eine Bemerkung zum darstellbaren Zeichensatz: 

Die meisten zur Zeit auf dem Markt befindlichen Rechner besitzen 
einen sogenannten internationalen Zeichensatz. Solche Rechner 
verfügen über einen Zeichenvorrat, der die im Deutschen vorkom¬ 
menden Umlaute, sowie die Sonderzeichen ß und § nicht enthält. Es 
ist dennoch möglich, mit solchen Geräten deutsche Texte zu bear¬ 
beiten, da viele Drucker auf einen deutschen Zeichensatz um- 
schaltbar sind. In diesem Fall werden einfach einige der US-Son- 
derzeichen gegen die notwendigen deutschen Zeichen ausgetauscht. 
Am Bildschirm sehen Sie dann die US-Zeichen, ein entsprechender 
Ausdruck enthält jedoch die Umlaute. Die folgende Tabelle zeigt 
die Zuordnungen der Zeichen untereinander: 
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USP-Zeichen zugeordnetes deutsches Zeichen 


{ 


a 


o 


@ 


[ 

\ 

] 


u 

A 

ö 

ü 

ß 

§ 


Lassen Sie das Programm laufen. 
RUN 

WENN ES 

WÄHREND DES LEHRGANGS 
NOTWENDIG WIRD 
Ok 


Wie Sie vermuten werden, können wir das Programm immer und immer 
wieder laufen lassen, und es wird immer denselben Ausdruck er¬ 
stellen. Die Ausgabe bleibt immer gleich. Man nennt deshalb eine 
Zeichenkette, die von Anführungszeichen eingeschlossen ist, eine 
Stringkonstante. Für eine Zeichenkette wird auch die Bezeichnung 
String verwendet. Die Zeichen der Kette können Buchstaben, Zahlen 
und beliebige Interpunktionszeichen sein. Immer, wenn wir inner¬ 
halb eines Programms die PRINT-Anweisung und Anführungszeichen 
verwenden, wie wir dies bisher getan haben, ist der dabei ent¬ 
standene String eine Konstante. Sie kann nur verändert werden, 
wenn wir das Programm ändern. 

Es ist auch möglich, die Art und Weise zu ändern, in der ein 
String auf dem Bildschirm dargestellt wird. Um herauszufinden, 
wie das möglich ist, fügen Sie bitte die folgenden Zeilen in Ihr 
Programm ein. 


15 PRINT 
25 PRINT 
35 PRINT 
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Wenn wir jetzt das Programm laufen lassen, sehen Sie sofort, daß 
sich am Ausdruck einiges geändert hat. 

RUN 

WENN ES 

WAHREND DES LEHRGANGS 
NOTWENDIG WIRD 
Ok 


Wird ein PRINT-Befehl alleine ohne Parameter benutzt, veranlaßt 
er die Ausgabe einer Leerzeile. Damit ist es möglich, Ausdrucke 
übersichtlicher zu gestalten. 

Bitte löschen Sie die Zeilen 15, 25 und 35 wieder, setzen Sie an 
das Ende der ersten beiden Zeilen einen Strichpunkt und lassen 
Sie das Programm erneut laufen. 

RUN 

WENN ESWÄHREND DES LEHRGANGSNOTWENDIG WIRD 
Ok 


Immer, wenn hinter einer Stringkonstanten ein Strichpunkt steht, 
werden die jeweils nächsten Zeichenketten direkt hinter den vor¬ 
angegangenen String geschrieben. Deshalb fehlen im obigen Aus¬ 
druck die Leerräume zwischen den Einzelstrings. Ergänzen Sie nun 
Ihr Programm um die nächsten beiden Zeilen. 

15 PRINT " 

25 PRINT " 

Die beiden neuen Zeilen setzen einen Leerraum an die Stellen zwi¬ 
schen den Einzelstrings. Der Strichpunkt bewirkt auch hier wie¬ 
der, daß alles hintereinander geschrieben wird. Der Ausdruck ist 
jetzt korrekt. 
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ÜBUNGEN 

1. Löschen Sie die Zeilen 15 und 25 wieder und ändern Sie die 
restlichen Zeilen so, daß der Ausdruck unverändert bleibt. 

2. Ersetzen Sie im folgenden Programm den Namen durch Ihren und 
sehen Sie sich den Ausdruck an. 

10 PRINT "PETER " "LÜKE" 

20 END 


3. Ändern Sie das obige Programm so, daß es folgendermaßen aus¬ 
sieht: 

10 PRINT "PETER ";"LÜKE" 

20 END 

Was hat sich am Ausdruck geändert und warum? 


DER TAB-BEFEHL 

Eines der Ziele beim Programmieren ist es, die Ausgabe eines Pro¬ 
gramms so zu gestalten, daß der Ausdruck möglichst gut lesbar und 
übersichtlich ist. Geben Sie bitte das folgende Programm ein, das 
eine Umrechnungstabelle zwischen Fuß und Zoll erzeugt. 

10 PRINT 1,1*12 
20 PRINT 2,2*12 
30 PRINT 3,3*12 
40 PRINT 4,4*12 
50 END 
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Nach dem Ausfuhren des Programms sehen Sie diesen Ausdruck: 


RUN 

1 

2 

3 

4 
Ok 


12 

24 

36 

48 


Sie und ich wissen, was dieses Programm tut, weil wir es ge¬ 
schrieben haben. Wenn aber irgendeine andere Person das Programm 
laufen läßt, wird es eine ganze Weile dauern, bis sie herausge¬ 
funden hat, was Sinn und Zweck des Programms ist. Es ist deshalb 
sinnvoll, einem Benutzer mitzuteilen, was er auf dem Schirm 
sieht. Um dies zu bewerkstelligen, ergänzen Sie unser Programm 
mit dieser Zeile: 

5 PRINT "FUSS" TAB(8) "=" TABC12) "ZOLL" 

Lassen Sie das Programm laufen und sehen Sie die Wirkung der 
neuen Zeile: 

RUN 

FUSS = ZOLL 
1 12 


2 

3 

4 
Ok 


24 

36 

48 


Die Tabelle ist jetzt wesentlich besser lesbar, weil sie mit ei¬ 
ner Beschriftung versehen ist. Wir benutzten den TAB-Befehl, um 
die Beschriftung passend zu den Zahlen auszudrucken. Das TAB(X)- 
Kommando wird zusammen mit dem PRINT-Befehl benutzt, damit die 
nächste Ausgabe mit einem Abstand von X Leerräumen zur ersten ge¬ 
schrieben werden kann. Die Zeile 5 veranlaßt zuerst die Ausgabe 
FUSS und schreibt anschließend das Gleichheitszeichen an einen 
Platz, der acht Leerräume vom linken Schirmrand entfernt ist. Da¬ 
nach wird das Wort ZOLL im Abstand von 12 Leerräumen vom linken 
Rand des Bildschirms ausgedruckt. All diese Ausgaben stehen wie¬ 
der in derselben Zeile, weil wir die einzelnen Parameter mit 
Leerräumen voneinander getrennt haben. 
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Zur Illustration der Arbeitsweise des TAB-Befehls dient Abbildung 


1 . 1 . 

Linker Bildschirmrand 

TAB Position 

Abbildung 1.1 


Spaltennummer -> 

5 10 15 20 

....V....V....V....V. 

FUSS = ZOLL 
8 12 

Bildschirmposition und 


25 30 35 40 

V....V....V....V. 


TAB-Anweisung 


Die meisten Bildschirme weisen eine Bildschirmaufteilung auf, mit 
der 80 Zeichen pro Zeile bei 24 Zeilen dargestellt werden können. 
Die PRINT TAB(X)-Anweisung erlaubt es Ihnen, eine Information an 
der Spaltenposition X in der jeweils angewahlten Zeile auszudruk- 
ken. Dieser Befehl ermöglicht es, die Lesbarkeit von Ausdrucken 
auf einfache Weise erheblich zu verbessern. Benutzen Sie ihn des¬ 
halb so oft wie möglich. 


DIE PRINT USING-AN WEISUNG 

Die PRINT USING-Anweisung erlaubt es dem Programmierer, die aus¬ 
zugebenden Werte zu formatieren. Obwohl es eine ganze Reihe von 
Möglichkeiten gibt, diesen Befehl zu benützen, wollen wir uns mo¬ 
mentan nur um eine Anwendungsmöglichkeit kümmern. 

Nehmen wir an, daß wir das folgende Programm laufen lassen. 

10 PRINT 1 
20 PRINT 2.5 
30 PRINT 3.33 
40 PRINT 1004.44 
50 PRINT .255 
60 END 
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Der Programmausdruck sieht so aus: 

RUN 

1 

2.5 

3.33 

1004.44 

.255 

Ok 


Eine solche Zahlenreihe zu lesen ist recht mühsam. Wir sind es 
gewöhnt, daß der Dezimalpunkt immer an derselben Stelle steht, 
weil sich damit die Wertigkeit einer Zahl sehr viel schneller er¬ 
fassen läßt. Das PRINT USING-Kommando verhilft uns zu dieser Dar¬ 
stellungsweise. Zahlen können damit rechtsbündig dargestellt wer¬ 
den. Wir wollen nun das vorher benutzte Programm, mit kleinen Än¬ 
derungen versehen, erneut eingeben: 


10 PRINT USING "#####.##" 
20 PRINT USING ”#####.##" 
30 PRINT USING "#####.##" 
40 PRINT USING "#####.##" 
50 PRINT USING "#####.##" 
60 END 


1 

2.5 

3.33 

1004.44 

.255 


Wenn wir dieses Programm laufen lassen, dann erhalten wir eine 
rechtsbündige Ausgabe: 

RUN 

1.00 

2.50 

3.33 

1004.44 

0.26 

Ok 

Die PRINT USING-Anweisung in diesem Programm schreibt alle Ausga¬ 
bewerte in ein achtstelliges Feld (der Dezimalpunkt belegt eine 
Stelle). Jedes #-Zeichen repräsentiert eine Stelle. Ist die aus¬ 
zugebende Zahl kleiner als das Feld, wird der Vorkommateil mit 
Leerräumen aufgefüllt, bis die Zahl rechtsbündig steht. Wenn die 
Zahl kleiner ist als eins, wird vor dem Komma eine Null ausgege- 
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ben, und die Zahl wird so gerundet, daß sie im reservierten Feld 
darstellbar ist. Die Definition des Feldes wird von der jeweili¬ 
gen Zahl mit einem Strichpunkt getrennt. Spater werden wir noch 
andere Variationen dieser Anweisung kennenlernen. 


ÜBUNGEN 

1. Untersuchen Sie das folgende Programm: 

10 PRINT "WAS GESCHIEHT”; 

20 PRINT TABC 10) "WENN WIR NICHT WEIT GENUG 'TABBEN'" 

30 END 

2. Was geschieht, wenn wir mit TAB eine Spalte anwahlen, in der 
bereits etwas steht? 

3. Schreiben Sie ein Programm, das Ihren Namen und Ihre Adresse 
in die Mitte des Bildschirms schreibt. 

4. Versuchen Sie herauszufinden, was das folgende Programm tut, 
ohne es laufen zu lassen. 

10 PRINT TABC10) "-" 

20 PRINT TABC10) TABC14) 

30 PRINT TABC10) "!" TABC12) "*" TABC14) "!" 

40 PRINT TABC10) ”!” TABC14) "!” 

50 PRINT TABC10) "-" 

60 END 

Lassen Sie jetzt das Programm laufen und überprüfen Sie, ob 
Sie recht hatten. 

5. Schreiben Sie ein Programm, das das PRINT USING-Kommando ##.## 
benutzt, und drucken Sie die folgenden Zahlen damit aus: 

.00005 1.25 232 99.999 99.99 -13.3 -5.5 
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AUSGABE AUF DEN DRUCKER 

Alle bisher behandelten Beispielprogramme benützten für die Aus¬ 
gabe den Bildschirm. Dieses Kapitel zeigt Ihnen eine Möglichkeit, 
wie Ausdrucke mit Hilfe eines Druckers gemacht werden können. 


LPRINT 

Die LPRINT-Anweisung sendet alle auszugebenden Zeichen zum Druk- 
ker. 


100 PRINT "DIES WIRD AUF DEN BILDSCHIRM GESCHRIEBEN" 

110 LPRINT "DIES WIRD ZUM DRUCKER GESENDET" 

120 END 

Prinzipiell ist es möglich, jedes PRINT-Kommando durch eine 
LPRINT-Anweisung zu ersetzen. Dadurch erhalten wir eine Ausgabe 
auf den Drucker. 

Wichtig: Vergewissern Sie sich, daß der Drucker betriebsbe¬ 
reit ist, wenn Sie mit LPRINT arbeiten. 

Einige Drucker "blockieren" den Rechner, wenn sie nicht zuerst 
eingeschaltet werden. Wünschen Sie während der weiteren Beispiele 
eine Ausgabe auf Ihren Drucker, so ersetzen Sie alle PRINT-Anwei- 
sungen durch LPRINT. Ansonsten fahren wir fort, als stünde uns 
kein Drucker zur Verfügung. 


WIE MAN EIN PROGRAMM SPEICHERT 

Im Verlauf der Arbeit mit diesem Buch werden Sie oft aufgefor¬ 
dert, ein Programm einzugeben, um damit zu experimentieren. 
Manchmal verwenden wir ein Beispielprogramm mehrere Male in 
leicht abgeänderter Form. Es wäre deshalb recht sinnvoll, wenn 
wir Programme abspeichern könnten, um sie nicht jedesmal neu ein¬ 
geben zu müssen. Das SAVE-Kommando erlaubt uns, ein Programm auf 
der Diskette abzulegen, das sich gerade im Speicher befindet. Die 
allgemeinste Form der Anweisung sieht so aus: 

SAVE "Dateiname" 
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Der Dateiname ist der Name, den Sie zur Kennzeichnung der Datei 
verwenden wollen. Er muß in Anführungszeichen gesetzt werden. 
Wenn Sie ein Programm unter dem Namen PROG abspeichern wollen, 
dann müssen Sie eingeben: 

SAVE "PROG" 

B-80 setzt automatisch den Dateityp .BAS hinzu. Wenn Sie nach dem 
Abspeichern mit FILES das Inhaltsverzeichnis (directory) der Dis¬ 
kette anschauen, werden Sie dort die Datei mit dem Namen PROG.BAS 
finden. Wollen Sie die Datei auf die Diskette im Laufwerk B: 
schreiben, ändert sich der Befehl folgendermaßen: 

SAVE "B:PROG" 

So können Sie auch jedes andere vorhandene Laufwerk an wählen. Ei¬ 
nige der bisher behandelten Beispielprogramme sind so kurz, daß 
es sich kaum lohnt, sie zu speichern. Andere Programme, die wir 
noch behandeln werden, werden jedoch oft mehrfach benötigt, so 
daß es sich auszahlt, sie auf der Diskette abzulegen. Alle diese 
Programme können auch wieder gelöscht werden, wenn wir sie nicht 
mehr brauchen. Wir "verlieren" also keinen Speicherplatz. 


WIE EIN PROGRAMM VON DER DISKETTE GELADEN WERDEN KANN 

Damit wir ein Programm, das auf einer Diskette abgespeichert ist, 
wieder in den Arbeitsspeicher laden können, besitzt B-80 den Be¬ 
fehl LOAD. Die LOAD-Anweisung stellt die Umkehrung des SAVE-Be- 
fehls dar. Um PROG.BAS wieder in den Speicher zu holen, müssen 
Sie 


LOAD "PROG" 


eingeben. Danach wird das Laufwerk anlaufen, und wenn der Lade¬ 
vorgang beendet ist, sehen Sie wieder die Bereitschaftsanzeige 
Ok. Mit Hilfe von LIST können Sie dann überprüfen, was Sie in den 
Speicher geladen haben. Wollen Sie das Programm von Laufwerk B 
aus laden, dann lautet das Kommando sinngemäß: 

LOAD "B:PROG" 
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Falls die Datei, deren Namen Sie gerade eingegeben haben, auf dem 
angewählten Laufwerk nicht existiert, erhalten Sie die Fehlermel¬ 
dung "file not found". 


ÜBUNGEN 

1. Schreiben Sie ein kurzes Programm und speichern Sie es mit 
SAVE ab. 

2. Geben Sie den Befehl NEW ein und drücken Sie RETURN. Versu¬ 
chen Sie jetzt, mit LIST Ihr Programm anzuschauen. Was veran¬ 
laßt das NEW-Kommando? 

3. Laden Sie Ihr Programm mit LOAD wieder in den Speicher und 
überprüfen Sie mit LIST, ob alles einwandfrei ausgeführt 
wurde. 
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DATEN INNERHALB EINES PROGRAMMS 

Bevor wir in dieses Kapitel einsteigen, wollen wir uns zuerst 
überlegen, was ein Programm eigentlich ist. Normalerweise schrei¬ 
ben wir Programme, um eine ganz spezielle Aufgabe zu bearbeiten. 
Weil ein Rechner nicht in der Lage ist, für sich alleine zu 'den¬ 
ken', benötigt er eine gegliederte Arbeitsanweisung. Diese Ar¬ 
beit sanWeisung bezeichnet man als Algorithmus. Obwohl die meisten 
Menschen das Wort Algorithmus nur mit dem Programmieren in Ver¬ 
bindung bringen, kann man auch Vorgänge des Alltags mit einem Al¬ 
gorithmus beschreiben. Nehmen wir einmal an. Sie wollen eine be¬ 
stimmte Fernsehsendung sehen, dann kann der Schritt-für-Schritt- 
Ablauf dieses Vorgangs so aussehen: 

1. Sie gehen in den Raum, in dem sich das Fernsehgerät befindet. 

2. Sie schalten das Gerät ein. 

3. Sie wählen den richtigen Kanal an. 

4. Sie setzen sich vor das Gerät und schauen die Sendung an. 

Diese Schritte stellen einen einfachen Algorithmus dar, der be¬ 
schreibt, wie Sie eine Fernsehsendung anschauen. Wir könnten, 
wenn wir das wollten, nun noch jeden der vorher beschriebenen 
Schritte in weitere Einzelheiten untergliedern. Damit wären wir 
in der Lage, den Algorithmus noch genauer zu gestalten. Schritt 
eins zum Beispiel setzt voraus, daß bekannt ist, wo Sie sich ge¬ 
rade aufhalten und was Sie tun müssen, um zum Fernsehgerät zu ge¬ 
langen. Für einen Menschen sind die obigen vier Schritte exakt 
genug beschrieben, um die gestellte Aufgabe zu erledigen, weil er 
in der Lage ist, fehlende Details aus eigenem Antrieb hinzuzufü¬ 
gen. Ein Rechner besitzt diese Fähigkeit jedoch nicht. Deshalb 
sind wir gezwungen, eine Arbeitsanweisung absolut exakt zu ge¬ 
stalten. Der Vorgang des Programmierens besteht deshalb aus zwei 
wesentlichen Schritten. Zuerst muß ein Algorithmus entworfen wer¬ 
den, mit dem die jeweilige Aufgabe erledigt werden kann. Der 
zweite Schritt ist dann die Übersetzung in eine für den Rechner 
verständliche Sprache - in unserem Fall BASIC-80. 

DIE VIER ARBEITSPHASEN 

Mit dem Entwurf eines geeigneten Algorithmus sollte jedes Pro¬ 
grammprojekt begonnen werden. Wurde das zu bearbeitende Problem 
so klar als irgend möglich definiert, dann ist es relativ leicht. 
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die Aufgabe in eine Programmiersprache zu übersetzen. Unglückli¬ 
cherweise machen viele unerfahrene Programmierer den Fehler, zu 
schnell in die Übersetzungsphase einzutreten. Das Ergebnis ist 
dann meist ein fehlerhaftes Programm. Sie sollten sich eine Ar¬ 
beitsmethodik angewöhnen, die immer erst die Fertigstellung des 
Algorithmus vorsieht, bevor Sie daran gehen, die endgültige Co¬ 
dierung vorzunehmen. 

Dies gilt nicht nur für Basic UM 

Die weitaus meisten programmiertechnischen Aufgaben laufen darauf 
hinaus, ein spezifisches Problem mit einem Rechner zu bearbeiten. 
Dabei stellt sich immer wieder heraus, daß die Beachtung einiger 
grundlegender Entwurfsschritte sinnvoll ist. Vier Grundaufgaben 
tauchen so gut wie immer auf: 

1. Die Initialisierung und/oder die Eingabe von Daten 

2. Weiterverarbeiten und/oder Berechnen von Größen 

3. Das Ausgeben von Ergebnissen 

4. Das Beenden des Programms 

Jedes vorhandene Problem beinhaltet einen oder mehrere der ge¬ 
nannten Punkte. Manchmal können einzelne Schritte übersprungen 
werden wie bei unseren Programmen aus dem ersten Kapitel, wo wir 
nur einfache Ausgaben gemacht haben. Komplexere Aufgabenstellun¬ 
gen machen es aber auch oft erforderlich, daß diese Schritte so¬ 
gar mehrfach wiederholt werden müssen, um zu einer Lösung zu ge¬ 
langen. Nichtsdestoweniger ist der aufgezeigte Weg natürlich nur 
als variierbare Empfehlung zu verstehen, die hier als Einstieg in 
eine Arbeitsmethode angeboten wird. 

1. Initialisierungs- und Eingabeschritt 

Der erste Schritt beim Entwurf eines Algorithmus ist es, festzu¬ 
stellen, in welcher Form die zu verarbeitenden Informationen vor¬ 
liegen und wie sie in das Programm eingebracht werden können. 
Dieser Teil macht es auch erforderlich, darüber nachzudenken, 
welche Anweisungen und Informationen über das Programm dem Benut¬ 
zer übermittelt werden sollen. Außerdem ist es sinnvoll, hier 
verschiedene Vereinbarungen zu treffen, die für den Ablauf des 
späteren Programms wesentlich sind (mehr darüber in den folgenden 
Kapiteln). 
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2. Verarbeitungs- und Berechnungsschritt 

Stehen dem Programm alle notwendigen Informationen zur Verfügung, 
so kann darangegangen werden, die eigentliche Problemlösung zu 
bearbeiten. Dieser Schritt beinhaltet die Weiterverarbeitung der 
Anfangsdaten zu einem Ergebnis, das die Antwort auf die Problem¬ 
stellung darstellt. Häufig sind es aber auch erst Zwischenergeb¬ 
nisse, die später zum Endergebnis weiter verarbeitet werden. Des¬ 
halb ist es eine der Hauptaufgaben, die Sequenz, in der die je¬ 
weiligen Ergebnisse benötigt werden, zu erarbeiten, damit ein 
möglichst geradliniger Programmablauf möglich wird. Wenn wir be¬ 
rechnen sollen, wieviel Einkommenssteuer ein Arbeitnehmer zu ent¬ 
richten hat, müssen wir erst einmal aus der Anzahl der Arbeits¬ 
stunden und seinem Stundensatz sein Einkommen ermitteln. Erst 
dann können wir den Steuersatz berechnen. 

3. Der Ausgabeteil 

Der Ausgabeteil soll die Problemlösung für den Benutzer eines 
Programms zugänglich machen. Hierzu müssen sowohl Zwischenergeb¬ 
nisse als auch das Endergebnis ausgegeben werden, üblicherweise 
geschieht das mittels des Bildschirms, hier kommt aber auch der 
Drucker oder eine Disketten-Datei in Betracht. Es sollte selbst¬ 
verständlich sein, daß die Ausgabe von Ergebnissen in einer Art 
und Weise geschieht, die so übersichtlich und einfach wie möglich 
ist. Das Maß aller Dinge sollte hierbei der spätere Benutzer 
sein. Er muß in der Lage sein, die ihm angebotene Information zu 
verwerten. Je mehr Programmiererfahrung Sie bekommen, um so mehr 
steigt die Gefahr, daß Sie Dinge als selbstverständlich ansehen, 
die für andere ein Buch mit sieben Siegeln darstellen. 

4. Der Programmabschluß 

Alle Programme müssen irgendein Ende haben. Oft ist dies nur ein 
einfaches END-Kommando, aber es gibt auch noch andere Möglichkei¬ 
ten, die wir noch in verschiedenen Kapiteln behandeln werden. 

Nachdem alle Algorithmen Daten benötigen, um eine Aufgabe zu lö¬ 
sen, muß eine Methode existieren, einem Programm Daten zugänglich 
zu machen. Wir wollen aber zuerst kennenlernen, wie Daten inner¬ 
halb eines Programms gespeichert werden. 
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VARIABLEN 

Wenn Sie die Beispiele des ersten Kapitels noch einmal durchle¬ 
sen, dann werden Sie bemerken, daß jede Ausgabe und jede Antwort 
auf ein bestimmtes Problem Teil einer PRINT-Anweisung ist. Die 
verwendeten Algorithmen sind sehr einfach, und jeder Schritt 
erzeugt seine Ausgabe selbst. Meistens müssen wir jedoch weitaus 
komplexere Problemstellungen bearbeiten, und deshalb benötigen 
wir normalerweise viel größere Programme. Häufig fallen Zwischen¬ 
ergebnisse an, die wir erst später weiter verarbeiten können. Wir 
brauchen also eine Methode, mit deren Hilfe wir solche Ergebnisse 
Zwischenspeichern können. Basic kann zu diesem Zweck sogenannte 
Variablen verwalten. Eine Variable stellt einen durch einen Namen 
gekennzeichneten Speicherplatz dar, in dem Daten abgelegt werden. 
Es gibt in Basic zwei fundamentale Arten von Variablen: 

1. Numerische Variablen 

2. Stringvariablen 


NUMERISCHE VARIABLEN 

Numerische Variablen werden zum Abspeichern von Zahlen benutzt. 
B-80 verwaltet Zahlen mit bis zu 40stelligen Variablennamen. Der 
Name kann aus Buchstaben, Zahlen und dem Dezimalpunkt bestehen. 
Lediglich das erste Zeichen eines Variablennamens muß ein Buch¬ 
stabe sein. Hierzu einige Beispiele: 

X 

XI 

TEMPERATUR 
HUT.GROESSE 

Eine Variable mit dem Namen 2X wäre ungültig, weil das erste Zei¬ 
chen kein Buchstabe ist. 

STRINGVARIABLEN 

Stringvariablen werden zum Abspeichern von Zeichenketten verwen¬ 
det. Für Stringvariablen gelten dieselben Regeln wie für numeri¬ 
sche Variablen mit der Ausnahme, daß Stringvariablen am Ende des 
Namens mit einem Dollarzeichen gekennzeichnet sein müssen: 
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A$ 

X$ 

Xl$ 


NAME$ 


Eine Stringvariable 1A$ wäre ungültig, weil das erste Zeichen 
eine Zahl und kein Buchstabe ist. Eine Variable namens TAG kann 
nicht zum Speichern einer Zeichenkette verwendet werden, weil das 
Dollarzeichen am Ende des Namens fehlt. 

Wichtig: Eine Variable darf keinesfalls einen Namen besit¬ 
zen, der mit einem Basic-Schlüsselwort identisch ist! 


ÜBUNGEN 


1. Welche der folgenden Variablennamen sind gültig? Welche sind 
für Zeichenketten und welche sind für numerische Variablen 
verwendbar? Wenn Namen ungültig sind, so überlegen Sie sich, 
weshalb. 


ABSCHREIBUNG$ 
ÜBERALL 
NIRGEND.W0$ 


ZEIT 

X$X 

EIN BAHN 


PERSONAL.KOSTEN 
AAAA-AA$ 

ZWEI.WEG 


2. Nehmen Sie an. Sie seien ein Verkäufer an der Kasse eines La¬ 
dens und Sie müßten jemandem eine Rechnung schreiben. Entwer¬ 
fen Sie einen Algorithmus für diese Aufgabe, der die Mehrwert¬ 
steuer und die Zahlung mittels Scheck berücksichtigt. 


DIE LET-ANWEISUNG 

Jetzt, wo wir wissen, daß Variablen benützt werden, um Zahlen und 
Zeichenketten innerhalb eines Programms zu speichern, ist es nur 
noch notwendig, herauszufinden, wie einer Variablen Werte zuge¬ 
wiesen werden. Nur weil eine Variable von uns einen Namen erhal¬ 
ten hat, heißt das noch nicht, daß in ihr auch sinnvolle Daten 
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gespeichert sein müssen. Hier hilft uns die LET-Anweisung weiter. 
Sie wird benützt, um einer numerischen Variablen oder einer 
Stringvariablen Daten zuzuordnen. LET erlaubt uns, den Namen 
einer Variablen als eine Art Abkürzung zu verwenden, die einen 
bestimmten Wert repräsentiert. Schreiben und Korrigieren von Pro¬ 
grammen ist jetzt wesentlich einfacher, weil die meisten Menschen 
sich viel leichter Namen als Zahlen merken können. 

Als Beispiel wollen wir einmal ausrechnen, was Sie heute für ein 
Wertpapier, das in einem Jahr DM 1000.00 kosten wird, bezahlen 
müssen. Hierzu ist es notwendig, den Zinssatz, die Laufzeit und 
den erwarteten Endwert nach der Laufzeit zu kennen. Für unser 
Beispiel nehmen wir einen Zinssatz von 16%, eine Laufzeit von ei¬ 
nem Jahr und einen End wert von 1000 Mark an. Die Gleichung, nach 
der wir die Berechnung durchführen, sieht so aus: 

zukünftiger Wert 

heutiger Wert = - 

(1+Zinssatz) ~ Laufzeit, in Jahren N 

Das '"'"-Zeichen ist das Symbol für eine Exponentiation. Das 
heißt, wir berechnen (1+Zinssatz) in der N-ten Potenz. Der Algo¬ 
rithmus, den wir benützen wollen, sieht so aus: 

Eingabe 

Zuordnung der Werte für die Laufzeit, den Zinssatz und den Aus¬ 
gangswert, Ausdruck einer Beschreibung, die dem Benutzer mit¬ 
teilt, was gerade geschieht. 

Berechnung 

Berechnung des heutigen Wertes 

Ausgabe 

Anzeigen des Ergebnisses 

Programmende 

Beendigung des Programms mit der END-Anweisung 

Nun wollen wir den Algorithmus in ein Programm übersetzen. Wir 
benutzen dazu die Variablennamen WERT, ZINS UND JAHRE für die 
entsprechenden Werte. 
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100 LET WERT=1000 
110 LET ZINS=.16 
120 LET JAHRE=1 

130 PRINT "DER PREIS 1 PFANDBRIEFS,DER NACH" JAHRE "JAHR(EN)" 
140 PRINT "LAUFZEIT BEI EINER VERZINSUNG VON” ZINS*100 ”%" 

150 PRINT "EINEN WERT VON DM" WERT " BESITZT, BETRAGT:” 

160 PRINT 

170 LET PV=WERT/(1+ZINS)"JAHRE 
180 PRINT PV 
190 END 

Lassen Sie jetzt das Programm laufen. 

RUN 

DER PREIS 1 PFANDBRIEFS,DER NACH 1 JAHR(EN) 

LAUFZEIT BEI EINER VERZINSUNG VON 16 % 

EINEN WERT VON DM 1000 BESITZT, BETRAGT: 

862.069 

Ok 

Durch die LET-Anweisung in Zeile 100 erhalt die Variable WERT den 
Wert 1000 zugewiesen. Dasselbe geschieht in den Zeilen 110 und 
120 mit den Variablen JAHRE (Wert 1) und ZINS (Wert .16). In den 
Zeilen 130 bis 160 wird die Information ausgegeben, wofür das 
Programm geschrieben wurde. Beachten Sie, daß wir den Zinssatz 
mit 100 multipliziert haben, damit er sprachlich zum Text passt. 
Schließlich wird in der Zeile 170 der heutige Wert des Pfandbrie¬ 
fes errechnet und der Variablen PV zugewiesen, die dann in der 
Zeile 180 ausgedruckt wird. 

Die Lösung der Aufgabe zeigt uns: Wenn wir heute DM 862.07 in ein 
Sparguthaben oder ähnliches investieren, dann können wir bei 
einer Verzinsung von 16% in einem Jahr mit einem Guthaben von 
DM 1000.00 rechnen. Das heißt aber auch, wenn wir heute ein Wert¬ 
papier kaufen, das in einem Jahr bei einer Effektiv-Verzinsung 
von 16% DM 1000.00 wert sein wird, sollten wir nicht mehr als 
DM 862.07 dafür ausgeben. 
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Das vorherige Programm können wir auch so schreiben: 

10 PRINT "DER HEUTIGE PREIS EINES PFANDBRIEFS MIT DEM” 

20 PRINT "NOMINALWERT VON DM 1000, DER NACH EINEM JAHR" 

30 PRINT "BEI EINER VERZINSUNG VON 16 % ERREICHT WIRD," 

40 PRINT "BETRAGT:" 

50 PRINT 1000/(1.16)^1 
60 END 

Obwohl das letzte Programm wesentlich kürzer ist als das vorange¬ 
gangene, hat es einige Nachteile, wenn man es mit der Version 
vergleicht, die die LET-Anweisung benutzt. Drei wesentliche Vor¬ 
teile bringt die Benutzung des LET-Kommandos mit sich: 

1. Es ist erheblich einfacher, sich einen Variablennamen zu mer¬ 
ken als die äquivalenten Zahlen. 

2. Die richtige Auswahl der Variablennamen kann das Programm 
selbstdokumentierend machen. 

3. Programmänderungen sind wesentlich leichter auszuführen, wenn 
wir verschiedene Zahlenwerte im gleichen Programm benutzen 
wollen. 

Der dritte Punkt ist besonders wichtig. In der zweiten Programm¬ 
version verwendeteten wir .16, anstatt diesen Wert der Variablen 
ZINS zuzuordnen. Wenn wir das Programm jetzt mit verschiedenen 
anderen Zinssätzen erneut laufen lassen wollen, müssen wir die 
Zeilen 20 und 50 ändern. In der ersten Version hingegen müßten 
wir nur das LET-Kommando in Zeile 20 ändern. Bei größeren Pro¬ 
grammen fällt dieser Vorteil stark ins Gewicht. 

Das LET-Kommando kann auch bei Stringvariablen angewendet werden. 
Bevor wir uns jetzt ein Programm als Beispiel hierzu ansehen, 
wollen wir uns zuerst noch einmal den Unterschied zwischen einer 
Stringkonstanten und einer Stringvariablen ins Gedächtnis zurück¬ 
rufen. 

Eine Stringkonstante ist eine Zeichenkette, die in Anführungszei¬ 
chen eingeschlossen ist. Die Zeichen können Buchstaben, Zahlen 
und die meisten Sonderzeichen sein, die wir auch auf unserer Ta¬ 
statur vorfinden. 
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Eine Stringvariable ist eine Variable, in der als Daten Zeichen¬ 
ketten abgelegt werden können. Der Variablenname wird innerhalb 
des Programms als Stellvertreter der der Variablen zugewiesenen 
Zeichenkette verwendet. 

Das folgende einfache Programm zeigt, wie mit Hilfe von LET 
Stringvariablen Daten zugeordnet werden können: 

100 LET A$="SEHR GEEHRTER HERR, " 

110 LET B$="DIE ZAHLUNG VON DM 101.01 " 

120 LET C$="WIRD DIESEN MONAT " 

130 LET D$="ZU SPÄT " 

135 LET E$="ZU FRÜH " 

140 LET F$="EINTREFFEN." 

150 PRINT A$ 

160 PRINT B$; 

170 PRINT C$; 

175 PRINT D$ 

180 PRINT F$ 

190 END 

Wenn Sie das Programm laufen lassen, dann sehen Sie folgendes auf 
dem Bildschirm: 

RUN 

SEHR GEEHRTER HERR, 

DIE ZAHLUNG VON DM 101.01 WIRD DIESEN MONAT ZU SPÄT 
EINTREFFEN. 

Ok 

Es wird Ihnen sicher auffallen, daß man den gleichen Ausdruck 
auch mit der im Kapitel 1 verwendeten Methode erzielen könnte. 
Die LET-Anweisung hat hier einen unübersehbaren Vorteil. Durch 
einfaches Austauschen der Variablen D$ in Zeile 175 gegen die Va¬ 
riable E$ ist es uns möglich, den ausgedruckten Text grundlegend 
zu ändern. Stringvariablen haben nicht nur den Vorteil, stellver¬ 
tretend für längere Zeichenketten zu stehen, man kann auch Teile 
des Inhalts der jeweiligen Variablen getrennt manipulieren, wie 
wir noch sehen werden. 
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DIE INPUT-ANWEISUNG FÜR NUMERISCHE VARIABLEN 

Unser letztes Beispielprogramm hat einen gravierenden Nachteil: 
Jedesmal, wenn wir das Programm mit verschiedenen Zahlenwerten 
laufen lassen wollen, sind wir gezwungen, es zu andern. Die An¬ 
wendung der INPUT-Anweisung hilft uns aus dieser Misere. Mit ih¬ 
rer Hilfe sind wir in der Lage, während des Programmlaufs Daten 
über die Tastatur einzugeben und diese der jeweiligen Variablen 
zuzuordnen. 


Um den Vorteil des INPUT-Kommandos auszunutzen, wollen wir unser 
Beispielprogramm wie folgt umschreiben: 

100 PRINT "GEBEN SIE DEN NOMINALWERT EIN"; 

110 INPUT WERT 

120 PRINT "GEBEN SIE DEN ZINSSATZ EIN (16 % = .16)"; 

130 INPUT ZINS 

140 PRINT "GEBEN SIE DIE LAUFZEIT IN JAHREN EIN"; 

150 INPUT JAHRE 

160 LET PV=WERT/(1+ZINS)"JAHRE 

170 PRINT "DER PREIS 1 PFANDBRIEFS,DER NACH" JAHRE "JAHR(EN)" 
180 PRINT "LAUFZEIT BEI EINER VERZINSUNG VON" ZINS*100 
190 PRINT "EINEN WERT VON DM" WERT " BESITZT, BETRAGT:" 

200 PRINT 
210 PRINT PV 
220 END 

Wenn jetzt das Programm läuft, wird der Benutzer aufgefordert, 
die notwendigen Daten einzugeben. Der Ausdruck sieht so aus: 

RUN 

GEBEN SIE DEN NOMINALWERT EIN? 1000 

GEBEN SIE DEN ZINSSATZ EIN (16 % = .16)? .16 

GEBEN SIE DIE LAUFZEIT IN JAHREN EIN? \ 

DER PREIS 1 PFANDBRIEFS, DER NACH 1 JAHR(EN) 

LAUFZEIT BEI EINER VERZINSUNG VON 16 % 

EINEN WERT VON DM 1000 BESITZT, BETRÄGT: 

862.069 

Ok 
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Die INPUT-Anweisungen in den Zeilen 110, 130 und 150 halten das 
Programm so lange an, bis der Benutzer die angeforderten Daten 
eingegeben hat. Die Eingabe muß auch hier mit RETURN abgeschlos¬ 
sen werden. 

Wichtig: Den verwendeten Variablen können ausschließlich nu¬ 
merische Größen zugeordnet werden. B-80 akzeptiert hier nur 
die Zahlen 0 bis 9, ein Vorzeichen und einen Dezimalpunkt. 
Alle anderen Eingaben führen zu der Fehlermeldung "Redo from 
start?". 

Das INPUT-Kommando macht ein Programm wesentlich flexibler. Ohne 
das Programm ändern zu müssen, kann mit immer wieder anderen Ein¬ 
gangswerten ein Ergebnis gefunden werden. 


ÜBUNGEN 

1. Nehmen Sie das Beispielprogramm mit den INPUT-Anweisungen und 
geben Sie bewußt nichtnumerische Daten ein. Was passiert, wenn 
Sie nach der Fehlermeldung "Redo from start?" Zahlen einge¬ 
ben? 

2. Nehmen Sie das Beispielprogramm und geben Sie für den Nominal¬ 
wert 99999999 ein. Wie lautet das Ergebnis? 

3. Nehmen Sie aus dem BeispielProgramm die jedem INPUT-Kommando 
vorangestellten PRINT-Anweisungen heraus. Was ändert sich am 
Programm? 

4. Entwickeln Sie einen Algorithmus zur Berechnung der Ver¬ 
brauchswerte Ihres Autos und schreiben Sie ein darauf basie¬ 
rendes Programm. 


DIE INPUT-ANWEISUNG FÜR STRINGVARIABLEN 

Das INPUT-Kommando kann auch dazu verwendet werden, Zeichenketten 
weiter zu verarbeiten. Es wird dabei prinzipiell genauso benutzt 
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wie vorher. Der einzige Unterschied besteht darin, daß der Name 
der Zuweisungsvariablen am Ende ein Dollarzeichen besitzen muß. 
Dazu folgendes Programm: 

10 PRINT "GEBEN SIE IHREN NAMEN EIN”; 

20 INPUT NAME$ 

30 PRINT "GEBEN SIE IHRE TELEFONNUMMER EIN"; 

40 INPUT NUMMER$ 

50 PRINT 

60 PRINT "SIE HEISSEN ";NAME$; 

70 PRINT " UND IHRE TELEFONNUMMER IST: ";NUMMER$ 

80 END 


RUN 

GEBEN SIE IHREN NAMEN EIN? PETER 

GEBEN SIE IHRE TELEFONNUMMER EIN? 0815/4711 

SIE HEISSEN PETER UND IHRE TELEFONNUMMER IST: 0815/4711 
Ok 

Das Programm benutzt NAME$ und NUMMER$, um den Namen und die Te¬ 
lefonnummer des Benutzers zu speichern. Die Zuweisung der Werte 
geschieht nach dem Drücken von RETURN. Beachten Sie, daß die Te¬ 
lefonnummer aus einer Zeichenkette besteht, die hier als Zahl er¬ 
scheint. Einer Stringvariablen können praktisch alle Kombinatio¬ 
nen aus Buchstaben, Zahlen und Sonderzeichen zugeordnet werden. 
B-80 ignoriert vorangestellte Leerraume. Wenn Sie versuchen, ein 
Komma als Teil einer mit INPUT zusammenarbeitenden Stringvaria¬ 
blen einzugeben, dann reagiert B-80 mit der Fehlermeldung "Redo 
from start?". Numerische Variablen können nur Zahlen, ein Vorzei¬ 
chen und einen Dezimalpunkt verarbeiten. Daraus folgt, daß Sie 
für alle anderen Datentypen eine Stringvariable benutzen müssen. 


DAS ZUSAMMENSETZEN VON STRINGS 

Wie wir bereits im vorigen Kapitel gelernt haben, können Strings 
in vielfältiger Weise bearbeitet werden. Die einfachste Möglich¬ 
keit ist das Zusammensetzen zweier Zeichenketten zu einem neuen 
String. Das folgende Programm zeigt, wie dies zu bewerkstelligen 
ist. 
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100 LET A$="GUTEN " 

110 LET B$="MORGEN” 

115 LET E$="OH " 

120 LET C$="GOTT" 

130 LET D$=", " 

140 PRINT "DER OPTIMIST SAGT:" 
150 PRINT 

160 LET OPT$=A$+B$+D$+E$+C$ 

170 PRINT OPT$ 

180 PRINT 

190 PRINT "DER PESSIMIST SAGT: 
200 LET PESS$=E$+C$+D$+B$ 

210 PRINT 
220 PRINT PESS$ 

230 END 


Und nun der Programmlauf: 
RUN 

DER OPTIMIST SAGT: 

GUTEN MORGEN, OH GOTT 

DER PESSIMIST SAGT: 

OH GOTT, MORGEN 
Ok 


Die Stringvariablen werden in den Zeilen 160 und 200 zusammenge¬ 
setzt. Die einzelnen Teile sind zwar gleich, aber die Reihenfol¬ 
ge, in der sie verbunden werden, ist unterschiedlich. Die neue 
Zeichenkette wird unmittelbar hinter die alte gesetzt. 


55 


Daten innerhalb eines Programms 


ÜBUNGEN 

1. Schreiben Sie ein Programm, das den Benutzer auf fordert, sei¬ 
nen Namen und seine Adresse einzugeben (benützen Sie INPUT-An- 
weisungen!). Drucken Sie anschließend alle Angaben so aus, als 
ob Sie einen Adreßaufkleber herzustellen hätten. 

2. Schreiben Sie ein Programm, das die Eingabe mehrerer Strings 
erlaubt, und setzen Sie diese einzelnen Zeichenketten zu neuen 
zusammen. Was müssen Sie tun, um die Eingabe zu erleichtern? 


INPUT HIT GLEICHZEITIGER AUSGABE EINER NACHRICHT 

In den bisher bearbeiteten Beispielprogrammen haben wir vor einer 
Ausgabe immer erst unter Zuhilfenahme von PRINT eine Nachricht 
ausgegeben, die den Benutzer aufforderte, etwas bestimmtes zu 
tun. B-80 erlaubt es uns aber auch, solche Texte direkt innerhalb 
eines INPUT-Kommandos auszugeben. Dies zeigt das folgende Pro¬ 
gramm: 

10 INPUT "GEBEN SIE IHREN NAMEN EIN: ";NAME$ 

20 INPUT "GEBEN SIE IHRE TELEFONNUMMER EIN: ";NUMMER$ 

30 PRINT "IHR NAME IST ";NAME$ 

40 PRINT "UND IHRE TELEFONNUMMER IST ";NUMMER$ 

50 END 

Lassen Sie das Programm laufen, und Sie werden sehen, daß es in 
der Wirkung mit einem der vorherigen Programme identisch ist, nur 
daß in dieser Version der jeweils zugeordnete Text leichter mit 
der Variablen in Verbindung zu bringen ist. Dadurch ist das Pro¬ 
gramm übersichtlicher geworden und leichter zu verstehen. Beach¬ 
ten Sie, wie die INPUT-Anweisung hier verwendet wird: 

Auf INPUT folgt ein Leerraum, danach steht der auszuge 
bende Text eingeschlossen in Anführungszeichen, gefolgt 
von einem Strichpunkt und dem Variablennamen. 
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Es gibt noch einige Variationsmöglichkeiten gegenüber der gezeig¬ 
ten Form. Leser, die sich dafür interessieren, bitte ich im B-80- 
Handbuch nachzuschlagen. 


ÜBUNGEN 

1. Ändern Sie das Wertermittlungsprogramm für Pfandbriefe so, 
daß die zur Eingabe erforderlichen Textausgaben innerhalb der 
INPUT-Anweisungen stehen. 

2. Schreiben Sie ein Programm nach Ihrer Wahl, das keinen ergän¬ 
zenden Text für Eingaben enthält, und lassen Sie es von einem 
Bekannten bedienen. Geben Sie nur den Hinweis auf RUN und das 
Drücken der RETURN-Taste. Was erwarten Sie von diesem Experi¬ 
ment? 

3. Entwickeln Sie einen Algorithmus, der nach der Anzahl der ver¬ 
kauften Artikel und nach Ihrem Preis sowie nach dem Artikelna¬ 
men fragt, und verlangen Sie auch den Namen des Käufers. 
Drucken Sie anschließend eine vollständige Rechnung (mit Mehr¬ 
wertsteuer) aus. 

4. Schreiben Sie ein auf dem Algorithmus von Übung 3 basierendes 
Programm, überprüfen Sie anschließend Ihr Programm, ob jede 
beliebige Person in der Lage wäre, es zu benutzen. 


57 







Daten innerhalb eines Programms 


ANHANG 


DER BASIC-80-ZEILENEDITOR 

B-80 beinhaltet einen Zeileneditor, der zum Editieren von Pro¬ 
grammzeilen benutzt werden kann. Mit seiner Hilfe können Änderun¬ 
gen innerhalb von Programmzeilen wesentlich einfacher durchge¬ 
führt werden. Im folgenden schildere ich einige der gebräuchlich¬ 
sten Editorfunktionen. Wenn Sie einen kompletten überblick über 
alle Editorfunktionen haben wollen, so bitte ich Sie, Ihr B-80- 
Handbuch zu Rate zu ziehen. 


DER AUFRUF DES ZEILENEDITORS 

Nachdem B-80 in den Speicher geladen wurde, gibt es vier ver¬ 
schiedene Betriebsarten, in denen der Rechner betrieben werden 
kann. Die erste ist der direkte oder Befehlsmodus, der mit der 
Bereitschaftsanzeige Ok angezeigt wird. Die zweite Betriebsart 
ist der indirekte Modus. Damit ist es möglich, Programmzeilen zu¬ 
sammen mit der vorangestellten Zeilennummer einzugeben. Als drit¬ 
te Betriebsart existiert der Ausführungs- oder Programm-Modus. In 
ihm werden Programme ausgeführt, die im Speicher stehen. Der 
vierte Modus ist der Editier-Modus. Er erlaubt Erstellen und Än¬ 
dern von Programmen mit einigen sehr komfortablen Befehlen. 

Der Zeileneditor kann nur dann benutzt werden, wenn gerade ein 
Programm im Speicher ist. Der Editor wird aus dem Befehlsmodus 
heraus aufgerufen: 

EDIT <Zeilennummer> CR 

CR steht hier für das Drücken der RETURN-Taste. Als Beispiel wer¬ 
den wir die fiktive Zeile 100 editieren: 

EDIT 100 CR 

Die Zeile 100 soll so aussehen: 

100 PRONT "DIS ISTEIN EDITRTST 
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Wie Sie sofort bemerken, sind in dieser Zeile eine ganze Reihe 
von Fehlern enthalten. Am besten geben Sie diese Zeile mit allen 
Fehlern in den Rechner ein, damit wir sie gemeinsam ausbessern 
können. Nach der Eingabe von EDIT werden Sie folgendes sehen: 

EDIT 100 
100 _ 

WIE HAN EINE ZEILE ANSEHEN KANN 

Der Editor wartet nun auf einen Befehl von Ihnen. Zuerst sollten 
Sie diese Zeile einmal ausgeben. Geben Sie dazu den L-Befehl ein 
(er wird nicht angezeigt). Jetzt werden Sie folgendes auf dem 
Schirm sehen: 

EDIT 100 

100 PRONT "DIS ISTEIN EDITRTST 
100 _ 

Der L-Befehl erleichtert es uns, die Fehler in der Zeile zu fin¬ 
den. Sie haben jetzt zwei Möglichkeiten, den Cursor an den Platz 
des ersten Fehlers zu bewegen. Die einfachste ist, die Leertaste 
zu drücken, bis Sie folgendes sehen: 

EDIT 100 

100 PRONT "DIS ISTEIN EDITRTST 
100 PR_ 

WIE HAN DEN CURSOR BEWEGT 

Jedesmal, wenn Sie die Leertaste betätigen, zeigt Ihnen der Edi¬ 
tor ein neues Zeichen. Gleichzeitig wird der Cursor um eine Posi¬ 
tion weiter nach rechts bewegt. Die Suchfunktion (= S-Befehl) ist 
der zweite Weg, um zur Fehlerposition zu gelangen. Betätigen Sie 
erneut die L-Taste, damit wir wieder zum Ausgangspunkt zurückkom¬ 
men. 

WIE HAN EIN ZEICHEN SUCHT 

Der Suchbefehl erlaubt es uns, ein bestimmtes Zeichen innerhalb 
einer Programmzeile zu suchen und zu finden. Dazu müssen wir zu¬ 
nächst die S-Taste drücken, und anschließend geben wir das zu su- 
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chende Zeichen ein. Wenn Sie die Eingaben gemacht haben, werden 
Sie sehen, daß der Cursor am selben Punkt wie vorher steht, näm¬ 
lich dort, wo sich das falsche Zeichen befindet. Der Cursor liegt 
sozusagen darüber. 


WIE MAN EIN ZEICHEN ÄNDERT 

Ein falsches Zeichen kann mit Hilfe des C-Befehls ausgetauscht 

werden. Um nun das 0 gegen das richtige I auszutauschen, müssen 
wir zuerst C und danach I eingeben. Danach ist dies auf dem 
Schirm zu sehen: 

EDIT 100 

100 PRONT "DIS ISTEIN EDITRTST 
100 PRI_ 

Wenn wir jetzt erneut das L-Kommando benützen, können wir wieder 
die ganze Zeile mit der einen ausgeführten Änderung sowie den 

Cursor in der Ausgangsposition für die nächste Aktion sehen: 

EDIT 100 

100 PRONT "DIS ISTEIN EDITRTST 

100 PRINT "DIS ISTEIN EDITRTST 

100 


WIE MAN ZEICHEN IN EINE ZEILE EINFÜGT 

Das I-Kommando wird zum Einfügen eines oder mehrerer Zeichen in 
eine Programmzeile verwendet. Zuerst müssen wir den Cursor wieder 
an die Stelle bringen, an der das neue Zeichen stehen soll. Dann 
geben wir I gefolgt vom einzufügenden Zeichen ein. Diese Befehls¬ 
sequenz wird mit ESC (= Escape-Taste) abgeschlossen. ESC teilt 
dem Editor mit, daß der Vorgang beendet ist. Versuchen Sie, die 
fehlenden Zeichen unseres Beispiels nun einzufügen: 

EDIT 100 

100 PRONT "DIS ISTEIN EDITRTST 
100 PRINT "DIS ISTEIN EDITRTST 
100 PRINT "DI 
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Geben Sie jetzt I ein, gefolgt von E und ESC: 

EDIT 100 

100 PRONT "DIS ISTEIN EDITRTST 
100 PRINT "DIS ISTEIN EDITRTST 
100 PRINT "DIE_ 

Bewegen Sie sich mit der Leertaste jetzt zum nächsten Fehler: 

EDIT 100 

100 PRONT "DIS ISTEIN EDITRTST 
100 PRINT "DIS ISTEIN EDITRTST 
100 PRINT "DIES IST_ 

Verwenden Sie die gleiche Sequenz wie vorher, nur daß Sie anstel¬ 
le von E jetzt einen Leerraum einfügen: 

EDIT 100 

100 PRONT "DIS ISTEIN EDITRTST 
100 PRINT "DIS ISTEIN EDITRTST 
100 PRINT "DIES IST _ 

Führen Sie auch die restlichen Änderungen durch, soweit dies mit 
dem I-Befehl möglich ist. 

Wenn Sie jetzt Ihre Programmzeile anschauen, werden Sie nur noch 
wenige Fehler darin finden. Zwischen DIES und IST steht ein Leer¬ 
raum zuviel. Er muß also gelöscht werden. 


WIE HAN ZEICHEN INNERHALB DER ZEILE LÖSCHT 

Man kann auf verschiedene Art und Weise Zeichen innerhalb einer 
Programmzeile löschen. Eine Möglichkeit ist die Anwendung des D- 
Befehls. Stellen Sie den Cursor an die Stelle des überflüssigen 
Leerraums, geben Sie D ein und beobachten Sie, was geschieht: 


100 PRINT "DIES\ \ 

Der D-Befehl rahmt die gelöschten Zeichen mit sogenannten 'back- 
slashes' ein. 
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Jetzt können Sie mit L die Zeile nochmals vollständig auf den 
Bildschirm bringen: 


100 PRINT "DIES IST EIN EDITORTEST 

Bis auf die fehlenden Anführungsstriche ist die Zeile in Ordnung. 
Wir könnten sie auch mit der I-Funktion einfügen, aber es gibt 
noch eine andere Möglichkeit. 


WIE MAN ZUM ZEILENENDE GELANGT 

Der einfachste Weg zum Zeilenende ist die Benutzung des X-Be- 
fehls. Dieses Kommando bewegt den Cursor an das Ende der Zeile 
und erlaubt uns das sofortige Eingeben von Zeichen. 


100 PRINT "DIES IST EIN EDITORTEST” 

Damit ist die eigentliche Änderung abgeschlossen. Sie müssen nur 
noch dafür sorgen, daß die geänderte Zeile abgespeichert wird. 
Dies erreichen Sie, indem Sie zum Abschluß CR (erinnern Sie sich 
noch - CR ist unsere Abkürzung für RETURN) eingeben. 

Schauen wir uns noch ein Beispiel für die Anwendung des D-Befehls 
an. Dazu verwenden wir eine neue Programmzeile: 

200 PRINT "WIE SPÄT IIST ES?" 

Um das zweite I bei IIST zu löschen, wenden wir wieder den D-Be- 
fehl an. Zuerst müssen wir allerdings den Cursor an die Fehler¬ 
stelle bringen. Zu diesem Zweck geben Sie bitte EDIT 200 CR L ein: 

EDIT 200 

200 PRINT "WIE SPÄT IIST ES?" 

200 _ 

Nehmen wir an. Sie wollen das zweite I von IIST löschen. B-80 er-' 
leichtert uns das Auffinden der Stelle mit folgender Befehlsse¬ 
quenz: 4SI. 
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Was heißt das? Den Suchbefehl S kennen wir bereits. SI heißt, daß 
das nächste I in der Programmzeile gesucht wird. Die 4 vor dem 
Befehl bedeutet, daß das vierte I von der Cursor-Position aus ge¬ 
sucht werden soll. 

EDIT 200 

200 PRINT "WIE SPAT IIST ES?" 

200 PRINT "WIE SPÄT I_ 

Mit dem D-Befehl löschen Sie das I: 

EDIT 200 

200 PRINT "WIE SPAT IIST ES?" 

200 PRINT "WIE SPÄT I\I\_ 


WIE MAN MEHRERE ZEICHEN LÖSCHT 

Der K-Befehl löscht alle Zeichen, beginnend bei der Cursor-Posi¬ 
tion bis zu dem Zeichen, das angegeben wurde. Hätten wir im letz¬ 
ten Beispiel den Befehl KI genommen, dann wäre die Zeile bis zum 
nächsten I gelöscht worden. Das I selbst wäre dabei stehen ge¬ 
blieben. 

WIE MAN DEN REST DER ZEILE LÖSCHT 

Der letzte Befehl ist das H-Kommando. Gehen wir davon aus, daß 
Sie die Zeile 200 so ändern wollen, daß WIEVIEL UHR IST ES ausge¬ 
druckt werden soll. Suchen Sie mit S den Leerraum hinter WIE und 
geben Sie den H-Befehl ein: 

EDIT 200 

200 PRINT "WIE SPAT IST ES?" 

200 PRINT ”WIE_ 

Jetzt können Sie den neuen Text eingeben: 

EDIT 200 

200 PRINT "WIE SPAT IST ES?" 

200 PRINT "WIEVIEL UHR IST ES?” 

Vergessen Sie nicht, mit CR die Zeile abzuspeichern! 
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Noch eine Bemerkung zum Zeileneditor in B-80. Lassen Sie ein Pro¬ 
gramm laufen, in dem sich ein Syntaxfehler befindet, so geht B-80 
automatisch in den Zeileneditier-Modus, wenn es auf den Fehler 
stößt. Sie können das testen, indem Sie eine absichtlich falsche 
Zeile eingeben. 

Es wird einige Zeit dauern, bis Sie alle Editorbefehle beherr¬ 
schen. Diese Zeit ist aber gut investiert, denn Sie sparen sie 
während der Programmierarbeit wieder ein. üben Sie deshalb so in¬ 
tensiv wie möglich die Bedienung des Editors. 


64 



Schleifenprogrammienmg 
und Sprünge 




















Schleifen und Sprünge 


SCHLEIFENPROGRAMMIERUNG UND SPRÜNGE 

Wir haben gelernt, daß ein Basic-Programm, beginnend mit der 
niedrigsten Zeilennummer, sequentiell ausgeführt wird. Nachdem 
eine Zeile ausgeführt worden ist, sucht sich B-80 die darauffol¬ 
gende mit der nächsthöheren Nummer. Dies geschieht so lange, bis 
eine END-Anweisung erreicht wird. Alle unsere bisherigen Bei¬ 
spielprogramme sind so abgelaufen. 

Normalerweise läuft ein Basic-Programm immer von der 
niedrigsten zur höchsten Zeilennummer, wenn sich keine 
Befehle in ihm befinden, die den Programmablauf ändern. 

Häufig ist es sehr nützlich, das Programm immer wieder ablaufen 
zu lassen oder über einige Befehle hinwegzuspringen. Wollen wir 
eine Reihe von Befehlen mehrfach gebrauchen, müssen wir den Pro¬ 
grammablauf so ändern, daß wir zu einer bereits ausgeführten Zei¬ 
le zurückkehren können. Sollen ein paar Befehle übersprungen wer¬ 
den, dann müssen wir den Ablauf so ändern, daß eine andere Zeile, 
die nicht die Zeile mit der nächsthöheren Zeilennummer ist, ange¬ 
sprungen wird. In diesem Kapitel werden wir alle Anweisungen, die 
hierzu erforderlich sind, kennenlernen und diskutieren. 

WIE MAN EIN PROGRAMM UNTERBRICHT 

Weil alle Programme, die wir bisher behandelt haben, eine gerad¬ 
linige Ablauf Struktur und ein END-Kommando auf wiesen, sind wir 
davon ausgegangen, daß wir irgendwann wieder im Befehlsmodus 
sind. Jetzt werden wir aber Möglichkeiten kennenlernen, die uns 
das Ändern des Ablaufs erlauben. Dies birgt die Gefahr in sich, 
daß wir das END-Kommando nicht mehr erreichen. In diesem Fall 
würden wir die Kontrolle über den Rechner verlieren. Wir brauchen 
deshalb einen Befehl, mit dem wir ein laufendes Programm unter¬ 
brechen können. 

B-80-Programme können durch gleichzeitiges Drücken der 
Tasten CONTROL und C angehalten werden. Dadurch bekommt 
der Benutzer wieder die Kontrolle über den Rechner. 

Versuchen Sie, auf Ihrer Tastatur das Wort CONTROL zu finden. 
Manchmal wird es auch mit CTRL abgekürzt. Die Taste mit dieser 
Beschriftung ist gewöhnlich auf der linken Seite angeordnet. Ver- 


67 


Schleifen und Sprünge 


suchen Sie, CONTROL C zu betätigen, auch wenn kein Programm 
läuft. B-80 gibt *C auf den Schirm aus. Wäre ein Programm gelau¬ 
fen, so wären Sie mit dieser Aktion in den direkten Modus zurück¬ 
gelangt. Halten Sie ein Programm mit CONTROL C an, so reagiert 
B-80 mit der Nachricht "Break in xxxx" darauf. Die Zeichen xxxx 
stehen dabei für die Zeilennummer, nach deren Ausführung das Pro¬ 
gramm angehalten wurde. Haben Sie einmal eine Dauerschleife pro¬ 
grammiert, dann können Sie anhand der Zeilennummer feststellen, 
in welchem Bereich sich Ihr Fehler befindet. 

DIE GOTO-ANWEISUNG 

Die einfachste Anweisung zum Ändern des Programmablaufs ist der 
GOTO-Befehl. Er wird folgendermaßen angewendet: 

GOTO xxxx 

Die Zeilennummer, zu der verzweigt werden soll, wird durch xxxx 
repräsentiert. Immer, wenn eine GOTO-Anweisung ausgeführt wird, 
verzweigt das Programm zur angegebenen Zeile. GOTO erlaubt es 
uns, ohne Berücksichtigung einer Bedingung, einen Sprung auszu¬ 
führen. 

Geben wir unsere erste Dauerschleife ein: 

10 PRINT "MACH ES IMMER WIEDER" 

20 GOTO 10 
30 END 

Um den Seitenumfang des Buches zu begrenzen, drucken wir diesmal 
die Ausgaben des Rechners während des Programmlaufs nicht ab! Sie 
sollten es allerdings auf Ihrer Maschine laufen lassen. Während 
das Programm läuft, wird die Stringkonstante in Zeile 10 wieder 
und wieder ausgegeben, weil in Zeile 20 der Programmlauf auf 10 
zurückgeführt wird. Es ist leicht einsehbar, daß die END-An- 
weisung nie erreicht werden kann. Wir haben eine Dauerschleife 
produziert, die nur mit CTRL C unterbrochen werden kann. Dauer¬ 
schleifen müssen aber nicht immer sinnlos sein! 

Denken wir nur an Anwendungsfälle, in denen eine stetige Kontrol¬ 
le von Geräten erforderlich ist. Andererseits wurde schon viel¬ 
fach demonstriert, daß man bei entsprechender Strukturierung ei- 
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nes Programms völlig auf GOTO verzichten kann. Für die Mehrzahl 
der Basic-Programme kann man feststellen, daß Dauerschleifen, wie 
auch die oben gezeigte, einen Fehler im Algorithmus darstellen. 

BEDINGTE VERZWEIGUNGEN 

Eine Dauerschleife ist eine Schleife, die außer Kontrolle geraten 
ist, weil eine Bedingung fehlt, die das Ende verursacht. Dauer¬ 
schleifen können nur vermieden werden, wenn vor jedem Durchlauf 
eine Bedingung überprüft wird, die darüber entscheidet, ob die 
Schleife fortgesetzt werden soll. Eine solche Schleife besteht 
aus zwei Teilen: 

1. Aus den Befehlen, die die Schleife bilden und 

2. aus der Bedingung. 

Das Programm entscheidet nach dem Testen der Bedingung, ob die 
Schleife erneut durchlaufen werden soll. Grundlage für solche 
Entscheidungen ist der Vergleich von Variablen untereinander. Die 
Tabelle 3.1 zeigt alle zur Verfügung stehenden Operatoren. Sie 
können sowohl auf Strings als auch auf numerische Daten angewen¬ 
det werden. Momentan beschränken wir uns darauf, die Operatoren 
nur auf numerische Daten anzuwenden. Wie Sie der Tabelle 3.1 ent¬ 
nehmen können, basieren alle zur Verfügung stehenden Operatoren 
auf einer mathematischen Beziehung zwischen den Variablen. 

Die Operatoren werden dazu verwendet, eine Aussage zu 
erhalten, ob eine Bedingung wahr oder falsch ist. 


Operator Test auf 

Strings 

Zahlen 

Beispiel 

— 

Gleichheit 

JA 

JA 

A = B 

<> 

Ungleichheit 

JA 

JA 

A$OB$ 

< 

kleiner als 

JA 

JA 


> 

größer als 

JA 

JA 


<= 

kleiner o. gleich 

JA 

JA 

A <= B 

>= 

größer o. gleich 

JA 

JA 

X >= Y 


Tabelle 

3.1 Operatoren 
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Nehmen wir an, wir wollen feststellen, ob die Variable X und die 
Variable Y gleich sind. Zu diesem Zweck verwenden wir das Gleich¬ 
heitszeichen als Operator. Sind X und Y gleich, dann ist die 
Gleichung X=Y wahr. Andernfalls bezeichnen wir die Gleichung als 
falsch. Beachten Sie dabei, daß unser Hauptinteresse dem logi¬ 
schen Verhältnis zwischen zwei Variablen gilt und nicht ihrer 
arithmetischen Differenz. Betrachten Sie die folgenden Beispiele: 


X und Y-Werte 

Operatoren 

Test 

Ergebnis des Tests 

X=5,Y=6 

Gleichheit 

X=Y 

falsch 

X=5,Y=6 

Ungleichheit 

XOY 

richtig 

X=3,Y=3 

Gleichheit 

X=Y 

richtig 

X=3,Y=3 

Ungleichheit 

XOY 

falsch 


Der erste Test zeigt, daß X und Y nicht gleich sind, wir bezeich¬ 
nen den Test X=Y als falsch. Das zweite Beispiel prüft auf Un¬ 
gleichheit und ist wahr, weil X und Y nicht gleich sind. Die 
dritte Prüfung benutzt gleiche Werte für X und Y, deshalb ist der 
Gleichheitstest wahr. Der letzte Test ist falsch, weil X und Y in 
diesem Fall gleich sind. 

DIE IF/THEN-ANWEISUNG 

Die IF/THEN-Anweisung entscheidet nach dem Ergebnis einer Über¬ 
prüfung, was das Programm als nächstes tun wird. IF/THEN hat zwei 
Wirkungen: 

1. IF (Bedingung ist wahr) THEN (führe diesen Befehl aus) 

2. IF (Bedingung ist falsch) THEN (ignoriere diesen Befehl) 

In einem kleinen Beispiel wollen wir die Wirkung von IF/THEN un¬ 
tersuchen: 

10 INPUT "GEBEN SIE -1 FÜR WAHR ODER 0 FÜR FALSCH EIN";TEST 
20 IF TEST=-1 THEN GOTO 50 
30 PRINT "FALSCH" 

40 GOTO 60 
50 PRINT "WAHR" 

60 END 
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Ihre Eingabe wird der Variablen TEST zugeordnet. In Zeile 20 wird 
überprüft, ob TEST = -1 ist. Für den Fall, daß Sie -1 eingegeben 
haben, ist die Gleichung TEST = -1 wahr, deshalb wird der GOTO 50 
Befehl ausgeführt. Die Zeilen 30 und 40 werden übersprungen. Ha¬ 
ben Sie jedoch 0 eingegeben, so ist die Bedingung falsch und der 
Befehl GOTO 50 wird ignoriert. Die IF/THEN-Anweisung in Zeile 20 
entscheidet in Abhängigkeit von der zu prüfenden Bedingung, wo 
das Programm fortzusetzen ist. 


ÜBUNGEN 

1. Tippen Sie das vorangegangene Programm in Ihren Rechner ein 
und geben Sie Werte ein, die nicht -1 oder 0 sind. Was er¬ 
scheint auf dem Bildschirm und warum? 

2. Andern Sie das Programm der Übung 1 so, daß die INPUT-Anwei¬ 
sung so lange ausgeführt wird, bis der Benutzer eine -1 ein¬ 
gibt. Halten Sie dies für eine Schleife? Wenn ja, halten Sie 
sie für konditioniert oder für unkonditioniert? 

3. Ersetzen Sie Zeile 20 des BeispielProgramms durch die fol¬ 
gende : 

20 IF TEST THEN GOTO 50 

Untersuchen Sie, was geschieht, wenn das Programm läuft? Kann 
über eine numerische Variable eine Aussage getroffen werden, 
ohne einen expliziten Operator zu benutzen? 

4. Entwerfen Sie einen Algorithmus, der in Abhängigkeit einer vom 
Benutzer eingegebenen Zahl den zugehörigen Wochentag ausdruckt 
(Montag = 1, Dienstag = 2, usw.). 

5. Schreiben Sie ein Programm zu dem unter 4. entwickelten Algo¬ 
rithmus. Was passiert, wenn Zahlen < 1 oder > 7 eingegeben 
werden? 

6. Modifizieren Sie Ihren Algorithmus so, daß der Benutzer ge¬ 
zwungen wird, eine korrekte Zahl einzugeben. 
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Ein weiteres Programm soll uns die Anwendung der IF/THEN-Anwei- 
sung demonstrieren. Wir wollen ausrechnen, wieviel Zinsen wir in¬ 
nerhalb einer bestimmten Zeit für ein Sparguthaben erhalten. Wie 
immer beginnen wir mit der Entwicklung eines Algorithmus. 

Problem: Verzinsungsberechnung 

Eingabeschritte: 

1. Einzugeben sind: 

a) Zinssatz 

b) Kontenstand 

c) Verzinsungsart 

d) Laufzeit 

Berechnungsschritte: 

2. Die während der Laufzeit anfallenden Zinsen berechnen. 

3. Neuer Kontenstand = alter Kontenstand + Zinsen 

Ausgabeschritte: 

4. Die eingenommenen Zinsen und den neuen Kontenstand ausdrucken. 

5. Die Schritte 2 bis 4 für jedes Laufzeitjahr wiederholen. 

Programmbeendigung: 

6. Das Programm mit END beenden. 

Ein nach dem obigen Algorithmus entwickeltes Programm könnte so 
aussehen: 


100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 


REM 

9 

REM 

r 

REM 


19.MAI 1983 

ZINSBERECHNUNG FÜR SPARKONTEN 
*** EINGABE *** 


PL 


INPUT "ZINSSATZ (.16=16 %)";ZINS 
INPUT "SPARGUTHABEN";KONTO 

INPUT "ANZAHL DER ZINSPERIODEN PRO JAHR";PERI0DE 
INPUT "LAUFZEIT";JAHRE 

LET ZAEHLER=0 
PRINT 
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240 PRINT "ZINSPERIODEN:" TAB(20) "ZINS” TAB(34) "GUTHABEN 

250 PRINT ’*-” 

260 PRINT 
270 ' 

280 REM **# BERECHNUNG *** 

290 REM (WIEDERHOLE FÜR JEDEN ZINSZEITRAUM) 

300 ' 

310 LET ZAEHLER=ZAEHLER+1 

320 LET SUMME=(KONTO*ZINS)/PERIODE 

330 LET KONTO=KONTO+SUMME 

340 ' 

350 REM *** AUSGABE *** 

360 ' 

370 PRINT ZAEHLER TAB(20) SUMME TAB(34) KONTO 
380 IF ZAEHLERO JAHRE*PERIODE THEN GOTO 310 
390 ' 

400 REM *** PROGRAMMENDE *** 

410 ' 

420 END 


Bild 3.1 


Lassen Sie das Programm laufen: 
Ausdruck der Tabelle: 


ZINSPERIODE 

ZINS 

GUTHABEN 

i 

30 

1030 

2 

30.9 

1060.9 

3 

31.827 

1092.73 

4 

32.7818 

1125.51 

5 

33.7653 

1159.27 

6 

34.7782 

1194.05 

7 

35.8216 

1229.87 

8 

36.8962 

1266.77 


Damit das Programm übersichtlicher wird, haben wir REM-Anweisun- 
gen benutzt, um Ihnen die vier Schritte zu verdeutlichen. Eine 
REM-Anweisung wird immer dann benutzt, wenn ein erklärender Kom- 
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mentar in das Programm eingefügt werden soll. Anstelle von REM 
kann auch ein "'"-Zeichen stehen. Alles, was rechts von einem 
REM-Befehl steht, wird von B-80 ignoriert. 

Es bleibt Ihnen überlassen, ob Sie lieber REM oder einen Apostro¬ 
phen benutzen. Im vorliegenden Beispiel wird der Apostroph ver¬ 
wendet, um zwischen den Programmzeilen einen Abstand zu erzeugen, 
während hinter REM Text folgt. Sie sollten sich bemühen, auch auf 
diese Weise Ihr Programm übersichtlich zu machen. 

Der Eingabeteil verlangt vom Benutzer alle Daten, die für die Be¬ 
rechnung erforderlich sind. In den Zeilen 160 bis 190 werden die 
Eingabewerte ihren Variablen zugeordnet. Die Zeilen 240 bis 260 
erzeugen einen Tabellenkopf, der die Lesbarkeit des Ausdrucks 
verbessert. Die Berechnungen finden in den Zeilen 310 bis 330 
statt. Während der Ausgabe werden die Ergebnisse der Berechnungen 
zusammen mit dem Inhalt des Zählers, der die jeweilige Zinsperio¬ 
de angibt, ausgedruckt. In Zeile 380 steht die IF/THEN-Anweisung, 
deren Bedingung entscheidet, wann das Programm beendet werden 
muß. Werden die Zinsen vierteljährlich ausbezahlt, so ist der In¬ 
halt von PERIODE = 4. Das Programm muß acht vierteljährliche 
Zins Zeiträume berechnen, wenn der Benutzer die Ergebnisse von 
zwei Jahren sehen möchte. Die Anzahl der Lauf zeit jahre mal der 
Anzahl der Zinszeiträume pro Jahr ergibt die Zahl der erforderli¬ 
chen Programmdurchläufe. Die Variable ZAEHLER wird bei jedem 
Durchlauf um eins erhöht. Der IF/THEN-Test in Zeile 380 über¬ 
prüft, ob die erwünschte Zahl der Durchläufe erreicht ist. Der 
Bereich zwischen den Zeilen 310 und 380 stellt eine konditionier¬ 
te Schleife dar. Die Anzahl der Durchläufe hängt von der Wahr/- 
Falsch-Aussage ab. Die Schleife muß so lange wiederholt werden, 
bis die Bedingungsgleichung ZAEHLERO JAHRE*PERIODE die Aussage 
"falsch" liefert. 

Im Zinsberechnungsprogramm war es die Aufgabe des Programmierers, 
dafür zu sorgen, daß die Testbedingung erfüllt wurde, damit das 
Programm beendet werden konnte. Es gibt aber auch die Alternati¬ 
ve, Programme zu schreiben, die eine Art von automatischer 
Schleife beinhalten. 
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DIE FOR/TO/NEXT-ANWEISUNGEN 

Die FOR/TO/NEXT-Schleife besitzt einen eingebauten Schleifenzah¬ 
ler und damit ein Testkriterium für das Schleifenende. Die Anwei¬ 
sung läßt sich wieder in zwei Teile untergliedern: 

1. Den FOR/TO-Teil, der den Anfang der Schleife kennzeichnet und 

2. den NEXT-Teil, der am Schleifenende steht. 

Bild 3.2 zeigt dies in grafischer Form. 

Die FOR/TO-Anweisung muß die erste Anweisung innerhalb einer 
Schleife sein (Zeile 100). Wird Zeile 100 ausgeführt, dann erhält 
der Schleifenzähler den Startwert zugeordnet, der in der numeri¬ 
schen Variablen (START) steht. Gewöhnlich ist der Startwert 
gleich 1, aber es kann auch eine andere Zahl sein. Der Endwert 
für den Schleifen Zähler steht in der numerischen Variablen ENDE. 
Der innere Teil der Schleife wird nach dem Zuordnen des Schlei¬ 
fenzählers abgearbeitet. In unserem Beispiel liegt dieser Teil 
zwischen den Zeilen 110 und 160. Erreicht das Programm das NEXT- 
Kommando, dann vergleicht B-80 den Wert des Schleifenzählers mit 
dem Wert, der ENDE zugewiesen wurde. Ist der Inhalt des Schlei¬ 
fenzählers kleiner als der Wert von ENDE, wird der Zähler um eins 
erhöht. Das Programm wird in diesem Fall mit der auf die FOR/TO- 
Anweisung folgenden Zeile fortgesetzt. Im Bild 3.2 ist dies Zeile 
110 . 

100 FOR (Schleifenzähler)=(Start) TO (EndeK-(Schleifenstart) 
110 (erster Befehl innerhalb der SchleifeX—+ ! 

i i 

• • • 

! ! 

. (weitere Befehle der Schleife) Schleifenkörper ! 

! ! 

! ! 

160 (letzter Befehl innerhalb der Schleife)<-+ ! 

170 NEXT (SchleifenzählerX-(Schleifenende) 

180 (Programmrest) 

Bild 3.2 FOR/NEXT-Befehl 

Sind die Werte von ENDE und dem Zähler gleich, wird das Programm 
mit der auf die NEXT-Anweisung folgenden Zeile weitergeführt. 
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Wir wollen jetzt das Zinsberechnungsprogramm so umgestalten, daß 
es mit einer FOR/TO-Schleife laufen kann. Beachten Sie auch, daß 
die Zeilen 300 bis 360 eingerückt wurden, um damit herauszustel¬ 
len, daß es sich hierbei um eine Schleife handelt. Machen Sie es 
sich zur Gewohnheit, innerhalb Ihrer Programme den Innenteil von 
Schleifen etwas einzurücken. Die Anzahl der Schleifendurchläufe 
wird in Zeile 290 zugeordnet, wenn die FOR/TO-Anweisung zur Aus¬ 
führung kommt. 

100 REM 
110 ' 

120 REM 
130 ' 

140 REM 
150 ' 

160 INPUT 
170 INPUT 
180 INPUT 
190 INPUT 
200 ' 

210 PRINT 
220 PRINT 
' 230 PRINT 
240 PRINT 
250 ' 

260 REM 
270 REM 
280 ' 

290 FOR ZAEHLER=1 TO JAHRE#PERIODE 
300 LET SUMME=(K0NT0*ZINS)/PERIODE 

310 LET KONTO=KONTO+SUMME 

320 ' 

330 REM *#* AUSGABE **# 

340 ' 

350 PRINT ZAEHLER TABC20) SUMME TAB(34) KONTO 

360 NEXT ZAEHLER 
370 ' 

380 REM *** PROGRAMMENDE *** 

390 ' 

400 END 


19.MAI 1983 PL 

ZINSBERECHNUNG FÜR SPARKONTEN 

*** EINGABE *#* 

"ZINSSATZ (.16=16 Ss)";ZINS 
"SPARGUTHABEN";KONTO 

"ANZAHL DER ZINSPERIODEN PRO JAHR";PERIODE 
"LAUFZEIT";JAHRE 


"ZINSPERIODEN:" TAB(20) "ZINS” TAB(34) "GUTHABEN" 
»» »» 


*** BERECHNUNG *** 
(WIEDERHOLE FÜR JEDEN ZINSZEITRAUM) 


Bild 3.3 
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Wenn viermal jährlich Zinsen bezahlt werden und wir die Berech¬ 
nungen für zwei Jahre durchführen wollen, muß die Schleife acht¬ 
mal durchlaufen werden.. Zeile 290 wird deshalb folgendermaßen 
durchgeführt: 


Startwert Endwert 

( i 

; j 

V V 

xxxx FOR ZAEHLER=1 TO 8 

In Zeile 290 erhält der Zähler als Startwert 1, während der End¬ 
wert aus dem Produkt PERIODE*JAHRE errechnet wird. Das NEXT-Kom- 
mando in Zeile 360 prüft, ob der Zählerinhalt nach jedem Durch¬ 
lauf den Endwert erreicht hat. Ist dies nicht der Fall, wird der 
Inhalt des Zählers um 1 erhöht, und das Programm verzweigt zu 
Zeile 300. 

Unabhängig von der Zahl der Schleifendurchläufe wird die 
FOR/TO-Anweisung immer nur einmal ausgeführt. 


ÜBUNGEN 

1. Schreiben Sie ein Programm, das die Zahlen 1 bis 20 und das 
zugehörige Quadrat ausgibt. 

2. Geben Sie das folgende Programm ein und lassen Sie es laufen. 

10 FOR J=65 TO 90 

20 PRINT CHR$(J) CHR$(J+32) " 

30 NEXT J 
40 END 

Vergleichen Sie die Ausgabe mit Anhang A. Was glauben Sie, was 
die CHR$-Anweisung in Zeile 20 tut? Warum wurden die speziel¬ 
len Start- und Endwerte gewählt? 
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FOR/TO/NEXT/STEP 

Nehmen wir einmal an, wir stünden vor der Aufgabe, alle geraden 
Zahlen zwischen 2 und 20 auszudrucken. Offensichtlich könnte man 
das mit einer Schleife erledigen. Bleibt nur noch die Frage of¬ 
fen, wie wir die ungeraden Zahlen unterdrücken können. 

Die STEP-Option kann dazu verwendet werden, innerhalb 
einer FOR/NEXT-Schleife eine andere Schrittweite als 
eins zu wählen. 

Nun zü der Liste der geraden Zahlen zwischen 2 und 20: 

10 FOR J=2 TO 20 STEP 2 
20 PRINT J; 

30 NEXT J 
40 END 

RUN 

2 4 6 8 10 12 14 16 18 20 
Ok 

Der Zusatz STEP 2 in Zeile 10 bewirkt, daß die Zählvariable J 
nach jedem Schleifendurchlauf um 2 inkrementiert wird. Benutzen 
Sie das folgende Programm, um etwas mit dem STEP-Zusatz zu expe¬ 
rimentieren. 

10 INPUT "SCHLEIFENSTARTWERT";START 
20 INPUT "SCHLEIFENENDWERT";ENDE 
30 INPUT "SCHRITTWEITE";SCHRITT 
40 ' 

50 FOR J=START TO ENDE STEP SCHRITT 
60 PRINT "J BESITZT JETZT DEN WERT:" J 
70 NEXT J 
80 ' 

90 END 

Lassen Sie das Programm laufen und benutzen Sie es mit verschie¬ 
denen Start-, End- und Stepwerten. Was passiert, wenn der Start¬ 
wert größer als der Endwert ist und wenn Sie gleichzeitig eine 
positive Schrittweite benutzen? In diesem Fall wird die Schleife 
nicht ausgeführt (Versuchen Sie START=100, ENDE=60, SCHRITT=2). 
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Ist es möglich, auch rückwärts zählen zu lassen? Es ist dann 
möglich, wenn der Startwert größer als der Endwert ist und die 
Schrittweite negativ gewählt wird (Versuch: START=100, ENDE=60, 
SCHRITT=-2). Vergewissern Sie sich, daß NEXT die Bedingung über¬ 
prüft, indem Sie für START und ENDE den gleichen Wert und für 
SCHRITT 1 eingeben. Wird der Test am Ende der Schleife durchge¬ 
führt, so kann die Nachricht nur einmal ausgedruckt werden. 
Versuchen Sie es einmal. 

Bitte merken Sie sich,daß eine Schrittweite von +1 angenommen 
wird, wenn Sie STEP nicht angeben. 


ÜBUNGEN 

1. Geben Sie das folgende Programm ein und lassen Sie es laufen: 

10 PRINT "GEBEN SIE IHREN NAMEN EIN (10 ZEICHEN MAXIMAL:)" 

20 ' 

30 FOR J=1 TO 10 
40 PRINT CHR$(8) 

50 NEXT J 

60 INPUT ;"",NAME$ 

70 ' 

80 END 

Schlagen Sie im Anhang A nach, um herauszufinden, was CHR$(8) 
macht. Ist eine solche Routine vernünftig, die nur Eingaben 
einer bestimmten Länge erlaubt? Ändern Sie Zeile 60 zu INPUT 
"";NAME$ und lassen Sie das Programm erneut laufen. Worin se¬ 
hen Sie den Unterschied zwischen den beiden INPUT-Anweisungen? 


VERSCHACHTELTE SCHLEIFEN 

Man spricht von verschachtelten Schleifen, wenn eine oder mehrere 
Schleifen innerhalb einer anderen liegen. Jede Schleife muß mit 
FOR/TO beginnen und eine eigene Zählvariable haben. Das Ende je- 
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der Schleife muß eine NEXT-Anweisung sein, der der Name der zuge¬ 
hörigen Zählvariablen folgt. Beachten Sie, daß innerhalb der X- 
Schleife alle Anweisungen der Y-Schleife liegen und daß beide 
Schleifen die Befehle enthalten, die in Bild 3.4 als gemeinsame 
Anweisungen bezeichnet worden sind. 


Start der Schleife X<- 

Start der Schleife Y<-+ 

f 

(gemeinsame Anweisungen) Y Schleife 

j 

Ende der Schleife Y<-+ 

Ende der Schleife X<- 


- + 

! 

I 

X Schleife 
j 
j 

- + 


Bild 3.4 Verschachtelte Schleifen 


Nehmen wir an, wir hätten eine Tabelle zu drucken, die einem Bü¬ 
roangestellten helfen soll, die Umsatzsteuer zu einem Verkaufs¬ 
preis zu finden. Die Tabelle soll so aufgebaut sein, daß die 
Spalten in DM-10-Stufen organisiert sind und in jeder Zeile die 
Werte für DM-l-Stufen zu finden sind. Eine solche Tabelle läßt 
sich sehr einfach mit verschachtelten Schleifen aufbauen. Das 
Programm in Bild 3.5 benutzt den PRINT USING-Befehl, um einen 
rechtsbündigen Tabelleninhalt sicherzustellen. Dem aufmerksamen 
Leser wird auffallen, daß in Zeile 180 ein Programmbefehl und ei¬ 
ne REM-Anweisung stehen. 

BASIC-80 läßt Programmzeilen zu, in denen mehrere Be¬ 
fehle stehen können. Die einzelnen Anweisungen müssen 
mit einem Doppelpunkt getrennt werden. 

Zurück zum Programm. Die ersten drei Zeilen drucken nur eine 
Überschrift aus. In Zeile 190 organisiert der Zusatz STEP 10 den 
Ausdruck so, daß die Spalten in lOer-Abständen beschriftet wer¬ 
den. In Zeile 180 werden zwei Leerräume ausgegeben. Sie sind 
notwendig, damit nicht über die Zeileneinteilung geschrieben 
wird. Eine andere Schleife beginnt in Zeile 270 und endet mit dem 
NEXT J-Befehl in Zeile 350. Wir bezeichnen diese Schleife als J- 
Schleife. Die K-Schleife beginnt mit Zeile 300 und endet mit NEXT 
K in Zeile 320. 
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Weil die K-Schleife von der J-Schleife umgeben ist, be¬ 
zeichnen wir sie als mit der J-Schleife verschachtelt. 


100 REM UMSATZSTEUERBERECHNUNGSPROGRAMM (4 %) 

110 ' 

120 PRINT TAB(25) "UMSATZSTEUER 4V 
130 PRINT 
140 PRINT 
150 ' 

160 REM AUSDRUCKEN DER SPALTENÜBERSCHRIFT 

170 ' 

180 PRINT " ";:REM ZWEI LEERRAUME AM ZEILENANFANG 

190 FOR 1=0 TO 100 STEP 10 

200 PRINT USING "######";I;:REM SPALTENÜBERSCHRIFT 
210 NEXT I 
220 ' 

230 REM AUSDRUCKEN DER TABELLE MIT VERSCHACHTELTEN SCHLEIFEN 
240 ' 

250 PRINT 
260 PRINT 

270 FOR J=0 TO 10:REM <— ANFANG J-SCHLEIFE 
280 PRINT USING J; 

290 ' 

300 FOR K=0 TO 100 STEP 10:REM <— ANFANG K-SCHLEIFE 

310 PRINT USING "###.##”;(J+K)*.04; 

320 NEXT K:REM <— ENDE K-SCHLEIFE 

330 ' 

340 PRINT 

350 NEXT J:REM <— ENDE J-SCHLEIFE 

360 ' 

370 END 


Bild 3.5 


Starten Sie das Programm. 


81 


Schleifen und Sprünge 


RUN 

UMSATZSTEUER A% 



0 

10 

20 

30 

4. 

50 

60 

70 

80 

90 

100 

0 

0.00 

0.40 

0.80 

1.20 

1.60 

2.00 

2.40 

2.80 

3.20 

3.60 

4.00 

1 

0.04 

0.44 

0.84 

1.24 

1.64 

2.04 

2.44 

2.84 

3.24 

3.64 

4.04 

2 

0.08 

0.48 

0.88 

1.28 

1.68 

2.08 

2.48 

2.88 

3.28 

3.68 

4.08 

3 

0.12 

0.52 

0.92 

1.32 

1.72 

2.12 

2.52 

2.92 

3.32 

3.72 

4.12 

4 

0.16 

0.56 

0.96 

1.36 

1.76 

2.16 

2.56 

2.96 

3.36 

3.76 

4.16 

5 

0.20 

0.60 

1.00 

1.40 

1.80 

2.20 

2.60 

3.00 

3.40 

3.80 

4.20 

6 

0.24 

0.64 

1.04 

1.44 

1.84 

2.24 

2.64 

3.04 

3.44 

3.84 

4.24 

7 

0.28 

0.68 

1.08 

1.48 

1.88 

2.28 

2.68 

3.08 

3.48 

3.88 

4.28 

8 

0.32 

0.72 

1.12 

1.52 

1.92 

2.32 

2.72 

3.12 

3.52 

3.92 

4.32 

9 

0.36 

0.76 

1.16 

1.56 

1.96 

2.36 

2.76 

3.16 

3.56 

3.96 

4.36 

10 

0.40 

0.80 

1.20 

1.60 

2.00 

2.40 

2.80 

3.20 

3.60 

4.00 

4.40 


Ok 


Nun wollen wir uns im Detail anschauen, was ab Zeile 270 ge¬ 
schieht. 

1. Während der Ausführung von Zeile 270 erhält die Zählvariable J 
den Wert 0 (Beginn der J-Schleife). 

2. Zeile 280 druckt J in einem formatierten Zweierfeld aus. 

3. In Zeile 300 erhält die Zählvariable K den Wert 0 (Anfang der 
K-Schleife). 

A. Ir) Zeile 310 werden die beiden Zählvariablen addiert und mit 
.04 multipliziert. Anschließend wird das Ergebnis formatiert 
ausgedruckt. 

5. Die NEXT K-Anweisung in Zeile 320 überprüft, ob K=100 ist. 
Wenn nicht, wird K um 10 erhöht (wegen der STEP 10-Anweisung 
in Zeile 300) und das Programm wird in Zeile 310 fortgesetzt. 

6. Zeile 340 setzt den Cursor in die nächste Zeile. 

7. In Zeile 350 wird überprüft, ob J=10 ist. Ist dies nicht der 
Fall, wird J um 1 erhöht. 

8. Das Programm wird so lange mit Punkt 2 fortgesetzt, bis J=10 
ist. 

9. Ende des Programms 
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ÜBUNGEN 

1. Schreiben Sie den Algorithmus auf, der für das vorangegangene 
Programm benutzt wurde. Versuchen Sie die vier Arbeitsphasen 
herauszufinden. 

2. Schreiben Sie ein Programm mit verschachtelten Schleifen, das 
Temperaturwerte von Grad Fahrenheit in Grad Celsius umwandelt. 
Die Gleichung lautet: C=(5/9)*(F—32). 

Die Tabelle soll so aufgebaut sein, daß die Spalten in jeweils 
10-Grad-Fahrenheit- und die Reihen in 1-Grad-Fahrenheit-Stufen 
aufgeteilt sind. Die Celsiuswerte sollen eine Nachkommastelle 
haben. 


DIE WH I LE/ WEND--ANWEISUNG 

Die WHILE/WEND-Anweisung ist eine andere Art von Schleifenbefehl, 
die in den meisten anderen Basics nicht enthalten ist. Sie ist 
dem FOR/TO-Befehl sehr ähnlich. Zwei Unterschiede trennen die 
beiden Anweisungen: 

1. Der Test, ob die Schleife nochmals ausgeführt werden soll oder 
nicht, erfolgt bereits am Schleifenanfang. 

2. Die Entscheidung findet nicht zwischen einem Start- und einem 
Endwert statt, sondern sie wird nach dem Kriterium wahr/falsch 
getroffen. 


Der WHILE-Teil der Anweisung ist der Schleifenbeginn, wahrend der 
WEND-Teil das Ende markiert. Die Schleifenbedingung, die nach 
WHILE steht, muß wahr sein, damit die Schleife ausgeführt wird. 

Hier ein Beispiel, das alle Quadrate der Zahlen von 1 bis 10 aus¬ 
gibt: 
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10 LET TEST=1 
20 ' 

30 WHILE TEST <=10:REM SCHLEIFENSTART 
40 PRINT TESTETEST 

50 LET TEST=TEST+1 

60 WEND:REM SCHLEIFENENDE 
70 ' 

80 END 


In diesem Programm wird TEST für die Berechnung und als Bedin- 
gungsvariable benutzt. Zeile 10 ordnet TEST den Wert 1 zu und 
sorgt dafür, daß die Bedingung in Zeile 30 erfüllt werden kann. 
Weil die Bedingung erfüllt ist, kann die Schleife ausgeführt wer¬ 
den. Der WEND-Befehl in Zeile 60 sorgt dafür, daß das Programm in 
Zeile 30 fortgeführt wird. TEST erhält den Wert 11, weil die 
Schleife zehnmal durchlaufen wird. Nach Ausführen von WEND über¬ 
prüft WHILE, ob die Bedingung wahr ist. Da das nicht mehr der 
Fall ist, wird das Programm mit Zeile 70 fortgesetzt. 

Mit WHILE/WEND können sehr leicht Dauerschleifen programmiert 
werden. Wenn Sie Zeile 50 aus dem Programm herausnehmen, wird die 
Variable TEST nicht inkrementiert. Das heißt, die Bedingung ist 
immer wahr, was zur Folge hat, daß die Schleife nicht mehr ver¬ 
lassen werden kann. 

Fast alle Schleifen können mit FOR/TO/NEXT- oder WHILE/WEND-An- 
weisungen erstellt werden. Das jeweilige Problem bestimmt, welche 
der beiden Möglichkeiten die bessere ist. Da WHILE/WEND in den 
wenigsten Basic-Dialekten implementiert ist, sind Programme, die 
diese Anweisung benutzen, nicht mehr übertragbar. Deshalb werden 
wir in den folgenden Beispielen WHILE/WEND nicht mehr gebrauchen. 


84 


Schleifen und Sprünge 


ÜBUNGEN 

1. Geben Sie folgendes Programm ein: 

10 INPUT "ENDWERT";ENDE 
20 LET TEST=1 
30 ' 

40 WHILE TEST <= ENDE 

50 PRINT "DIES IST DURCHLAUFNUMMER";TEST 

60 LET TEST=TEST+1 

70 WEND 
80 ' 

90 END 

Lassen Sie das Programm mit verschiedenen Werten laufen, und 
versuchen Sie auch den Wert 0. Untersuchen Sie, ob dann ein 
Durchlauf gemacht wird. 

2. Ändern Sie das Programm von Punkt 1 so, daß für einen bestimm¬ 
ten Endwert die Schleife nicht durchlaufen wird. 

3. Versuchen Sie, das Programm mit einer FOR/TO/NEXT-Schleife zu 
schreiben. 


EINIGE RAFFINESSEN 

Alle in diesem Kapitel besprochenen Anweisungen verursachen Pro¬ 
grammverzweigungen. GOTO ist der einzige Befehl, der nicht an ei¬ 
ne Bedingung gebunden ist. 

Im Rest des Kapitels wollen wir Sie noch mit einigen Varianten 
der GOTO- und der IF/THEN-Anweisung vertraut machen. 

DIE ON GOTO-ANWEISUNG 

Die ON GOTO-Anweisung erlaubt uns, abhängig vom Wert einer nume¬ 
rischen Variablen, verschiedene Punkte eines Programms anzusprin¬ 
gen. Die allgemeine Form der Anweisung sieht so aus: 

ON (Numerische Variable) GOTO xxxx,yyyy,zzzz 
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xxxx, yyyy, und zzzz repräsentieren die Zeilennummern der An¬ 
sprungpunkte. Der Wert der numerischen Variablen bestimmt, in 
welche Zeile gesprungen werden soll. Ist er 1, findet die erste 
Zeilennummer Verwendung, ist er 2, dann die zweite usw. Besitzt 
die Variable einen Nachkommateil, so wird sie zu einer ganzen 
Zahl gerundet. 

Bild 3.6 zeigt uns die Zuordnung der Variablenwerte zum An¬ 
sprungpunkt. Hat die Variable X den Wert 2.2, dann ist Zeile 200 
der Ansprungpunkt. 2.2 wird auf 2 abgerundet. 

Für jeden möglichen Wert der Variablen muß ein Wert in 
der Sprungtabelle vorhanden sein. Andernfalls erscheint 
die Fehlermeldung "Illegal function call". 


50 ON X GOTO 100,200,300,400 

/N A A A A 

! ! ! ! ! 

i litt 

+-X=1—+ ! ! ! 

! ! ! ! 

+—X=2-+ ! • 

! ! ! 

+-X=3-+ ! 

j j 

+-X=4-+ 

Bild 3.6 ON GOTO-Anweisung 


Aufmerksame Leser werden sofort bemerken, daß die ON GOTO-Anwei¬ 
sung eine Art von Abkürzung für eine große Zahl von IF/THEN-Be- 
fehlen ist: 

50 IF X=1 THEN GOTO 100 
60 IF X=2 THEN GOTO 200 
70 IF X=3 THEN GOTO 300 
80 IF X=4 THEN GOTO 400 
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Die ON GOTO-AnWeisung ist besonders nützlich, wenn ein Programm 
über viele Funktionen verfügt und wir dem Benutzer die Entschei¬ 
dung überlassen wollen, welche davon er anwenden will. Das fol¬ 
gende Beispiel soll zeigen, wie dies zu bewerkstelligen ist. 

10 PRINT "DIE VERFÜGBAREN FUNKTIONEN SIND:" 

20 PRINT 

30 PRINT "1 - LINEARE REGRESSION" 

40 PRINT "2 - GAUSS'SCHE VERTEILUNG" 

50 PRINT "3 - QUADRATISCHE REGRESSION" 

60 PRINT 

70 INPUT "WAHLEN SIE DIE FUNKTIONSNUMMER (1-3)",WAHL 

80 ON WAHL GOTO 90,200,300 

90 REM *** LINEARE REGRESSION *** 


200 REM *** GAUSS'SCHE VERTEILUNG *** 


300 REM *** QUADRATISCHE REGRESSION *** 


Das Programm bietet drei Funktionen an. Die ersten sechs Zeilen 
des Programms geben eine Übersicht über die Art der Funktionen, 
ein sogenanntes Menü. Die ON GOTO-Anweisung wird benutzt, wenn 
ein Programm abhängig vom Wert einer numerischen Variablen ver¬ 
zweigt werden soll. 


ÜBUNGEN 

1. Entwickeln Sie einen Algorithmus für ein Menü, das für eine 
Gehaltsabrechnung als Abrechnungsbasis Stunden, Kostenstellen 
oder ein Festgehalt erlaubt. 

2. Schreiben Sie das Programm zum Algorithmus von Punkt 1. 

3. Was ist ein Menü, und wie wird es benutzt? Schreiben Sie einen 
Algorithmus, der das Zinsberechnungsprogramm und das Steuerbe¬ 
rechnungsprogramm zusammenbringt, und machen Sie die Auswahl 
über ein Menü möglich. 
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DIE IF/THEN/ELSE-AN WEISUNG 

Eingangs dieses Kapitels haben wir gelernt, daß die IF/THEN-An- 
weisung die Benutzung von Operatoren erlaubt, die eine Entschei¬ 
dung über die Programmverzweigung ermöglichen. 

Wir werden jetzt eine Variation dieser Anweisung kennenlernen: 

IF (Bedingung) THEN (Befehl) ELSE (Befehl) 

Bild 3.7 zeigt die Funktionsweise der Anwendung in grafischer 
Form. Für beide logischen Möglichkeiten existieren zugeordnete 
Befehle. 


IF ( 

j 

+ 

falsch—führe das aus-+ 

Bild 3.7 IF/THEN/ELSE-Anweisung 


Test 


) THEN 
i 


(Befehl 1) 


ELSE (Befehl2) 


V ! 

wahr-führe das aus—+ 


Abhängig davon, ob die Bedingung wahr oder falsch ist, wird nur 
der jeweils zugehörige Befehl ausgeführt. Hierzu wieder ein Bei¬ 
spiel: 

10 INPUT "GEBEN SIE EINEN TESTWERT EIN";TEST 

20 IF TEST=-1 THEN PRINT "WAHR" ELSE PRINT "FALSCH" 

30 END 

Hat TEST den Wert -1, so erhalten wir den Ausdruck WAHR, für je¬ 
den anderen Wert von TEST wird FALSCH ausgegeben. 

Ist die Bedingung innerhalb der Anweisung wahr, wird der Befehl 
ausgeführt, der auf THEN folgt. Bild 3.8 zeigt uns wieder in gra¬ 
fischer Form die Funktionsweise. 


88 





Schleifen und Sprünge 


->falsch-+ 

+->wahr-+ 

! ! 

IF (Test ist: : ) THEN (Befehl 1) ELSE (Befehl 2) 

l j 

(nächste Programmzeile)-+-+ 


Bild 3.8 


Anweisung 1 wird ausgeführt, wenn die Bedingung wahr ist. Unab¬ 
hängig davon, welcher der beiden Befehle ausgeführt wurde, wird 
das Programm mit der nächsten Zeile fortgesetzt. 


ÜBUNGEN 

1. Nehmen Sie die erste Version unseres Zinsberechnungsprogramms, 
die das IF/THEN-Kommando in Zeile 320 benutzte, und schreiben 
Sie das Programm auf IF/THEN/ELSE um. 

2. Schreiben Sie das folgende Programm so um, daß ausschließlich 
IF/THEN-Anweisungen benutzt werden. 

10 IF TEST=1 THEN PRINT "JA" ELSE PRINT "NEIN” 

20 IF SEX=1 THEN F=TEST*2 ELSE F=TEST-1 

30 IF F>2 THEN PRINT "MÄNNLICH” ELSE PRINT "WEIBLICH” 
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ANHANG 


LOGISCH UND und ODER 

BASIC-80 verarbeitet eine Reihe von logischen Operationen. In 
diesem Anhang wollen wir uns mit UND- und ODER-Verknüpfungen be¬ 
schäftigen, die wir zusammen mit IF/THEN-Anweisungen verwenden. 


DIE AND-VERKNÜPFUNG 

In Kapitel 3 haben wir gesehen, daß wir anhand einer Bedingung 
entscheiden konnten, welche Befehle als nächstes bearbeitet wer¬ 
den. Mit der AND-Verknüpfung können wir zwei oder mehr Testkrite¬ 
rien in einem IF/THEN-Kommando benutzen. Die folgende Logiktabel- 
le wird uns zeigen, wie AND arbeitet. 


Wahrheitstabelle für AND 


X 

Y 

X AND Y 

WAHR 

WAHR 

WAHR 

WAHR 

FALSCH 

FALSCH 

FALSCH 

WAHR 

FALSCH 

FALSCH 

FALSCH 

FALSCH 


Die Tabelle ist so zu lesen: Wenn X und Y wahr sind, dann ist das 
Ergebnis X AND Y ebenfalls wahr. Die Bedingung ist dann erfüllt. 
Alle anderen Kombinationen sind falsch; die Bedingung ist nicht 
erfüllt. Um zu demonstrieren, wie AND benutzt wird, nehmen wir 
für das folgende Beispiel an, daß der Wert 0 weibliches GE¬ 
SCHLECHT und der Wert 1 männliches GESCHLECHT repräsentiert. Die 
MEHRZAHL hat einen Wert von 1. Es soll eine Nachricht ausgedruckt 
werden, wenn wir eine weibliche MEHRZAHL finden. 
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100 IF GESCHLECHT <>0 THEN 200 
110 IF MEHRZAHL <> 1 THEN 200 

120 PRINT "WEIBLICHE ÜBERLEGENHEIT (ZAHLENMÄSSIG)" 


200 (restliches Programm) 


Zeile 100 überprüft das GESCHLECHT. Ist es männlich, so muß nicht 
mehr auf MEHRZAHL abgefragt werden; das Programm wird in Zeile 
200 fortgesetzt. Der zweite Test in Zeile 110 überprüft die zah¬ 
lenmäßige weibliche Überlegenheit. Und nun dasselbe Programm mit 
der AND-Verknüpfung: 


100 IF GESCHLECHT=0 AND MEHRHEIT=1 THEN PRINT "WEIBLICHE ÜB 
ERLEGENHEIT (ZAHLENMÄSSIG)" 


AND macht es möglich, beide Bedingungen innerhalb eines IF/THEN- 
Kommandos zu überprüfen. Die Nachricht wird nur ausgegeben, wenn 
beide Bedingungen wahr sind. Das folgende Bild verdeutlicht die 
Funktion der Zeile: 


100 IF GESCHLECHT=0 AND MEHRHEIT=1 THEN PRINT "WEIB. 

! ! 

Bedingung 1 Bedingung 2 


i 


l 


V V 

X AND Y 

IF (beide wahr) THEN (führe Befehl aus) 


Sind die Bedingungen 1 und 2 wahr, dann ist auch X AND Y wahr. 
Nur wenn dies der Fall ist, wird die Nachricht ausgedruckt. AND 
kann mit beliebig vielen Bedingungen und zusammen mit numerischen 
Daten oder Strings benutzt werden. 
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DIE OR-VERKNÜPFUNG 

Die OR-Verknüpfung wird prinzipiell genauso angewendet wie AND. 
Der Unterschied zu AND liegt in der Wahrheitstabelle. 


Wahrheitstabelle für OR 


X 

Y 

X OR Y 

WAHR 

WAHR 

WAHR 

WAHR 

FALSCH 

WAHR 

FALSCH 

WAHR 

WAHR 

FALSCH 

FALSCH 

FALSCH 


Nur wenn beide Bedingungen falsch sind, ist auch das Ergebnis 
falsch. Das folgende Beispiel zeigt uns, wie wir OR anwenden kön¬ 
nen: 


100 INPUT "GEBEN SIE EINE ZAHL ZWISCHEN 1 UND 10 EIN";T 
110 IF T<1 THEN 100 
120 IF T>10 THEN 100 


Das gleiche Programm jetzt mit OR: 


100 INPUT "GEBEN SIE EINE ZAHL ZWISCHEN 1 UND 10 EIN";T 
120 IF T<1 OR T>10 THEN 100 


Der erste Test T<1 überprüft, ob der Wert < 1 ist, der zweite 
kontrolliert, ob T > 10 ist. Sind beide Bedingungen wahr, wurde 
eine falsche Zahl eingegeben und die Eingabe muß wiederholt wer¬ 
den. IF/THEN und OR werden oft dazu benutzt, festzustellen, ob 
ein Wert innerhalb eines bestimmten Bereichs liegt. B-80 unter¬ 
stützt noch eine Reihe anderer logischer Operatoren. Wollen Sie 
mehr darüber erfahren, schlagen Sie bitte in Ihrem Handbuch nach. 
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ZAHLEN UND ALLES, WAS DAZUGEHÖRT 

Ob der Computer benutzt wird, um komplexe Gleichungssysteme zu 
lösen oder um Adreßlisten zu drucken, seine Hauptaufgabe besteht 
immer in der Manipulation von Daten. In diesem Kapitel wollen wir 
uns näher mit der Behandlung numerischer Daten beschäftigen. 


NUMERISCHE DATEN 

B-80 kennt drei verschiedene Arten numerischer Daten: 

1. Ganzzahlen 

2. Festkommazahlen 

3. Fließkommazahlen 

Meistens bleibt es Ihnen überlassen, welcher der drei Typen Sie 
den Vorzug geben. Ihre Wahl wirkt sich jedoch stark auf Platzbe¬ 
darf und Ablaufgeschwindigkeit eines Programms aus. Deshalb wer¬ 
den wir jeden dieser numerischen Variablentypen diskutieren und 
uns mit den Vor- und Nachteilen vertraut machen. 


GANZE ZAHLEN 

Jede positive oder negative ganze Zahl ist eine Ganzzahl (INTE¬ 
GER). Ganzzahlen können keinen Nachkommaanteil haben. Sie sind 
auf den Bereich von -32768 bis + 32767 beschränkt. Zahlen außer¬ 
halb dieses Wertebereichs verursachen eine Fehlermeldung. Ganz¬ 
zahlen belegen zwei Byte im Speicher des Rechners (diese Informa¬ 
tion wird in späteren Kapiteln an Bedeutung gewinnen, wenn wir 
uns mit Disketten-Dateien beschäftigen). 


FESTKOMMAZAHLEN 

Jede positive oder negative reelle Zahl wird als Festkommazahl 
bezeichnet. Sie kann auch einen Nachkommateil haben. Die Zahl 
3.14 ist ein Beispiel für eine Festkommazahl. 
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FLIESSKOMMAZAHLEN 

Jede positive oder negative Zahl in exponentieller Form ist eine 
Fließkommazahl. Zum Beispiel ist 1.2345E3 eine Fließkommazahl. 
1.2345 wird als Mantisse bezeichnet, die 3 ist der Exponent. Das 
E trennt die Mantisse vom Exponenten und kennzeichnet die Zahl 
als Fließkommazahl. B-80 erlaubt Exponenten im Bereich von -38 
bis +38. Weil sich der Exponent auf die Basis 10 bezieht, kann 
eine Fließkommazahl verschiedenartig dargestellt werden: 

1.2345 E 3 = 12.345 E 2 = 123.45 E 1 = 1234.5 

Beachten Sie auch, daß die Position des Dezimalpunktes verschoben 
werden kann, wenn wir dies im Exponenten berücksichtigen. Der 
Wert des Exponenten sagt uns, wie weit der Dezimalpunkt in der 
Mantisse verschoben werden muß, um die korrekte Zahl zu erhalten. 
Der erlaubte Wertebereich des Exponenten ermöglicht die Behand¬ 
lung von sehr großen und sehr kleinen Zahlen. 


RECHENGENAUIGKEIT 

Es ist ein Unterschied zwischen der Größe einer Zahl und der Ge¬ 
nauigkeit, mit der sie verarbeitet werden kann. Ein kleines Bei¬ 
spiel soll uns helfen, dies zu verstehen. Nehmen wir an, wir wol¬ 
len die Zahl 112233445566 abspeichern und ausdrucken: 

10 LET N=112233445566 
20 PRINT N 
30 END 

Das Programm ergibt folgenden Ausdruck: 

RUN 

1.12233E11 
Ok 

Nehmen wir die ausgedruckte Zahl und verschieben den Dezimalpunkt 
um elf Stellen nach rechts, so erhalten wir folgende Zahl: 

112233000000 

Das Ergebnis ist um 445566 kleiner als unsere Ausgangszahl. Mit 
anderen Worten: die Genauigkeit unserer Zahl erstreckt sich nur 
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auf sechs signifikante Stellen. Wir können zwar in diesem Fall 
eine zwölf-stellige Zahl behandeln, wir verfügen aber nicht über 
eine zwölf-stellige Genauigkeit. In manchen Fällen kann ein Feh¬ 
ler von 445566 katastrophale Auswirkungen haben (denken Sie an 
Ihr Bankkonto!), in einigen Fallen spielt der Fehler keine Rolle. 
Glücklicherweise haben wir in B-80 die Möglichkeit, verschiedene 
Genauigkeiten zu wählen. 


EINFACHE GENAUIGKEIT 

Einfach genaue Zahlen werden im Rechner mit sieben signifikanten 
Stellen gespeichert und mit sechs ausgegeben. Vereinbaren wir 
nichts anderes, so nimmt B-80 grundsätzlich einfache Genauigkeit 
an. In unserem Beispiel waren wir nur auf sechs signifikante 
Stellen genau, weil wir die B-80-Standardgenauigkeit nicht verän¬ 
dert hatten. 


DOPPELTE GENAUIGKEIT 

Doppelt genaue Zahlen werden mit 16 signifikanten Stellen gespei¬ 
chert und ausgegeben. Doppelt genaue Fließkommazahlen verwenden 
für die Anzeige des Exponenten D anstelle von E (z.B. 1.2345D3). 
Wollen wir Zahlen mit doppelter Genauigkeit verwenden, müssen wir 
dies ausdrücklich vereinbaren. 


FESTLEGUNG DER GENAUIGKEIT 

Der Programmierer kann numerischen Variablen verschiedene Ge¬ 
nauigkeiten zuordnen. Dies geschieht mit Hilfe von Vereinbarungs¬ 
zeichen. 


Genauigkeit 

Vereinbarungstyp 

Beispiel 

Ganzzahl 

% 

J%=128 

einfach genau 

i 

X!=3333.33 

doppelt genau 

# 

N#=l122334455# 
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Beachten Sie, daß bei der Vereinbarung der doppelten Genauigkeit 
das Vereinbarungszeichen nicht nur nach dem Variablennamen steht, 
sondern auch nach einer Zahl. Damit Sie sehen können, warum das 
wichtig ist, lassen Sie das folgende Programm laufen: 

10 N#=l/3 
20 PRINT N# 

30 END 

RUN 

.3333333432674408 

Ok 

Machen Sie jetzt eine kleine Änderung am Programm, indem Sie in 
Zeile 10 hinter 1 das Zeichen # einfügen. 

10 N#=l#/3 
20 PRINT N# 

30 END 

RUN 

.3333333333333333 

Ok 

In beiden Fällen wurden die ersten sieben Stellen richtig berech¬ 
net. Die erste Programmvariante hat jedoch an Genauigkeit verlo¬ 
ren, weil N# mit einfach genauen Zahlen berechnet wurde. Einfach 
genaue Zahlen werden mit sieben Stellen gespeichert und deshalb 
können wir keine größere Genauigkeit erwarten. In der zweiten 
Programmvariante wurde eine Zahl doppelt genau verwendet, weswe¬ 
gen das Ergebnis auf 16 Stellen genau war. Worin liegt nun der 
Unterschied? Ohne zu sehr in die Tiefen der Technik einzusteigen, 
sollten wir uns überlegen, wie B-80 arithmetische Operationen 
ausführt. Immer, wenn etwas berechnet wird, konvertiert B-80 die 
verwendeten Operanden zur höchsten Genauigkeitsklasse, die inner¬ 
halb der Berechnung auftaucht. In unserem Beispiel waren die Ope¬ 
randen 1 und 3. Weil wir 1 als doppelt genaue Zahl vereinbart ha¬ 
ben, wurde vor der Berechnung auch 3 zu einer doppelt genauen 
Zahl. Deshalb haben wir, obwohl 3 nur einfach genau war, letzt¬ 
lich zwei doppelt genaue Zahlen dividiert. 
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WELCHE GENAUIGKEIT IST SINNVOLL? 

Auf den ersten Blick sieht es so aus, als wäre es am vorteilhaf¬ 
testen, immer mit doppelter Genauigkeit zu arbeiten. Versuchen 
Sie zunächst einmal, die beiden kurzen Testprogramme laufen zu 
lassen, und vergleichen Sie mit einer Stoppuhr die Ausführungs¬ 
zeiten. 

5 REM TESTPROGRAMM FÜR GANZZAHLEN 
10 FOR J%=1 TO 4000 

20 LET X%=X%+1 

30 NEXT J% 

40 END 

5 REM TESTPROGRAMM FÜR EINFACHE GENAUIKKEIT 

10 FOR J=1 TO 4000 

20 LET X=X+1 

30 NEXT J 
40 END 

Auf meinem Computer läuft die Ganzzahlversion des Programms in 
knapp unter 9 Sekunden ab, während die Version mit einfacher Ge¬ 
nauigkeit etwa 13 Sekunden benötigt. Weil Ganzzahlen nur 2 Byte 
Speicherplatz benötigen, einfach genaue Zahlen jedoch 4 Byte, muß 
die Programm Version mit der einfachen Genauigkeit doppelt soviel 
Daten bewegen. 

Der Programmierer sollte sich dessen bewußt sein, daß eine Stei¬ 
gerung der Genauigkeit mehr Speicherplatz bedarf und mehr Laufzeit 
erfordert. 

Nichtsdestoweniger ist es manchmal unumgänglich, mit der größt¬ 
möglichen Genauigkeit zu arbeiten. So ist es für Buchhaltungspro¬ 
gramme unabdingbar erforderlich, doppelt genau zu arbeiten, weil 
sechs signifikante Stellen für die heutigen Preise wohl nicht 
mehr ausreichen (vergessen Sie die Pfennigbeträge nicht*). Ande¬ 
rerseits können die Zählvariablen von Schleifen als Ganzzahlen 
benutzt werden. 


"GLOBALE” GENAUIGKEITSVEREINBARUNGEN 

Soll eine bestimmte Variable während des ganzen Programms doppelt 
genau sein, so ist es ziemlich mühsam, immer das #-Zeichen hinzu- 
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zusetzen. B-80 offeriert uns die Möglichkeit, mit einem einzigen 
Befehl eine Typzuweisung für das ganze Programm durchzuführen. 
Hierzu stehen uns drei Anweisungen zur Verfügung: 


Definition für Ganzzahlen 
Definition für einfach genaue Zahlen 
Definition für doppelt genaue Zahlen 


DEFINT 

DEFSNG 

DEFDBL 


Benutzt man die DEF(Typ)-An Weisung, so muß das erste Zeichen des 
Variablennamens im Befehl stehen. Hierzu ein Beispiel: 

10 DEFINT I-K 

20 (Rest des Programms) 

In diesem Fall sind alle Variablen, deren Namen mit I, J oder K 
beginnen, als Ganzzahlvariablen definiert. Der Bindestrich zwi¬ 
schen den Buchstaben zeigt an, daß alle Zeichen beginnend mit I 
bis inklusive K definiert werden sollen. Die Variablen IGEL, JUNI 
und KILO sind Ganz zahlvariablen, wenn sie später im Programm auf¬ 
tauchen. Variablen, denen auf diese Weise ein Typ zugewiesen 
wird, bezeichnet man als global definiert. Eine andere Möglich¬ 
keit ist: 

10 DEFINT J,M,N 
20 (restliches Programm) 

Hier wurden die Variablen, deren Namen mit den Buchstaben J, M 
oder N beginnen, global als Ganzzahlen definiert. Weil Kommas be¬ 
nutzt werden, um die Buchstaben zu trennen, ist dies keine Be¬ 
reichsdefinition. Deshalb wurde für die Variablennamen, die mit K 
oder L beginnen, keine Vereinbarung getroffen. 

Achtung: Globale Typvereinbarungen können die Ursache für 
Programmfehler sein. 

Ein häufig gemachter Fehler sieht so aus: 

10 DEFINT Z 


400 ZINS=GUTHABEN#(1.16)^JAHRE 
410 PRINT ZINS 
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In diesem Programm wäre Zins immer ein voller Markbetrag, da alle 
Variablen, deren Name mit Z beginnt, als Ganzzahlen definiert 
sind. Das Schlimme an diesem Fehler ist, daß das Programm keine 
Fehlermeldung produziert, weil formal alles in Ordnung ist. Würde 
in Zeile 10 DEFDBL Z stehen, würde der Betrag zwar richtig be¬ 
rechnet werden, aber das Programm würde mehr Speicherplatz bele¬ 
gen als notwendig. 

Es ist besser, die expliziten Definitionen zu benutzen und damit 
auf der sicheren Seite zu sein, obwohl es etwas mühsamer ist. Es 
ist nicht nötig, einfach genaue Zahlen explizit zu vereinbaren,, 
weil alle Zahlen ohne besondere Typzuweisung automatisch einfach 
genau sind. 


ÜBUNGEN 

1. Schreiben Sie eine doppelt genaue Version unseres Zeitschlei¬ 
fenprogramms. Glauben Sie, daß es jemals nötig sein könnte, 
doppelt genaue Zahlen als Schleifenzähler zu benutzen? Ist es 
überhaupt möglich, dies zu tun? 

2. überlegen Sie sich, wo es sinnvoll ist, die jeweiligen Ge¬ 
nauigkeiten einzusetzen. Können alle drei Genauigkeiten inner¬ 
halb eines Programms verwendet werden? 

3. Was für eine Zahl ist das Ergebnis des folgenden Programms: 

10 N=l#/3 
20 PRINT N 
30 END 

Welches Ergebnis erwarten Sie und warum? 

4. Was für eine Zahl ist das Ergebnis dieses Programms? 

10 D#=2#/3 
20 PRINT D 
30 END 
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Lassen Sie das Programm laufen und überprüfen Sie, ob Ihre 
Vermutung richtig war. Gibt es in diesem Programm eine 
potentielle Gefahr, die in einem komplexeren Programm zu 
Fehlern führen kann? 


ARITHMETISCHE OPERATOREN 

Wir haben bisher arithmetische Operatoren benutzt, ohne uns Ge¬ 
danken darüber zu machen, wie man sie korrekt verwendet. Das fol¬ 
gende Beispiel zeigt Ihnen, daß das nötig ist. 

10 LET X=100+20#3 
20 PRINT X 
30 END 

Wird der Ausdruck in der ersten Zeile von links nach rechts be¬ 
rechnet, so lautet das Ergebnis 360. Lassen wir das Programm lau¬ 
fen, dann geschieht etwas ganz anderes. 

RUN 

160 

Ok 

Der Grund für die Differenz ist in der Hierarchie der arithmeti¬ 
schen Operatoren zu suchen. Diese Hierarchie ist für die Reihen¬ 
folge verantwortlich, in der arithmetische Operationen ablaufen. 
Sie müssen nicht notwendigerweise von links nach rechts ablaufen. 
Die Exponentiation besitzt die höchste Priorität. Im Beispiel in 
der Tabelle 4.1 wird X der Wert des Quadrats von Y zugewiesen. 
Die zweithöchste Priorität nimmt die Negation ein. Im Beispiel 
erhält M den negativen Wert von N. Multiplikation und Division 
sind in ihrer Wertigkeit gleich und stehen an dritter Stelle der 
Rangordnung. Stehen Multiplikations- und Divisions-Operatoren in 
der gleichen Zeile, so werden sie von links nach rechts bearbei¬ 
tet. 

Zum Beispiel: 


10 LET M=20*3/5 
20 PRINT M 
30 END 
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Weil in Zeile 10 zuerst eine Multiplikation ansteht, wird zuerst 
20*3 berechnet. Das Produkt wird anschließend durch 5 dividiert. 
Addition und Subtraktion sind wieder gleichwertig und belegen den 
letzten Platz in der Rangordnung. Ähnlich wie bei der Multiplika¬ 
tion und Division werden sie, wenn sie in derselben Zeile auftre- 
ten, von links nach rechts bearbeitet. Das folgende Beispiel ver¬ 
eint alle arithmetischen Operatoren in einer Zeile: 

Rangordnung:->3 4 2 1 

! ! ! ! 

10 LET X=M-N+C*K /S J 

Wie die grafische Darstellung zeigt, wird die Zeile in einer klar 
festgelegten Reihenfolge abgearbeitet. Zuerst wird die J-te Po¬ 
tenz von K berechnet, und das Ergebnis wird mit C multipliziert. 
Anschließend wird M von N subtrahiert und zu C addiert, überprü¬ 
fen Sie, daß 

10 LET X=l-2+3*4~2 

ein Ergebnis von 47 ergibt. 


Reihen¬ 
folge Operation 

Verwendetes Symbol 

Beispiel 

1. Exponentation 

A 

X=Y , '2 

2. Negation 

- 

M=-N 

3. Multiplikation,Division 

*,/ 

X=H*F,X=H/F 

4. Addition,Subtraktion 


D=A+B,Z=R-S 


Tabelle 4.1 Hierarchie arithmetischer Operatoren 


Komplexe arithmetische Ausdrücke sind häufig Ursache von Pro¬ 
grammfehlern. Läuft ein Programm zwar korrekt ab, produziert es 
jedoch unsinnige Ergebnisse, sollten Sie die Reihenfolge unter¬ 
suchen, in der die Berechnungen angestellt werden. Meistens fin¬ 
den Sie dann einen Unterschied zwischen der Reihenfolge, in der 
Sie die Berechnungen ausführen wollten und der, in der sie 
schließlich ablaufen. 


103 










Zahlen und alles, was dazu gehört 


ÄNDERUNG DER BEARBEITUNGSREIHENFOLGE ARITHMETISCHER OPERATOREN 

Es gibt Fälle, wo man eine Addition vor einer Multiplikation aus¬ 
geführt haben möchte, um zu einem richtigen Ergebnis zu kommen. 
Gehen wir davon aus, daß das Beispiel von vorhin als Ergebnis 
nicht 160, sondern 360 haben soll. 

10 LET X=100+20*3 

Wir müssen einen Weg finden, die Addition vor der Multiplikation 
stattfinden zu lassen. Um dies zu erreichen, müssen wir die bei¬ 
den ersten Operanden in Klammern setzen: 

10 LET X=(100+20)*3 

In dieser Form liefert die Gleichung das Ergebnis 360. 

Stehen in einem arithmetischen Ausdruck Klammem, so 
wird der Inhalt der Klammem zuerst berechnet. 

Befinden sich innerhalb einer Klammer mehrere Operatoren, gilt 
für diese wieder die vorher beschriebene Rangordnung. So zum Bei¬ 
spiel: 

10 LET X=(20+5*4)/10 

Das Ergebnis dieser Zeile ist 4 und nicht 10. Die Berechnungen 
werden in der folgenden Reihenfolge ausgeführt: 

1. 5*4 = 20 

2. 20+20 = 40 

3. 40/10 = 4 

Klammer ausdrück e können auch ineinander verschachtelt sein. Die 
zuletzt gezeigte Zeile kann so geändert werden, daß sie als Er¬ 
gebnis 10 ergibt: 

10 LET X=((20+5)*4)/10 

Hier wird zuerst 20+5 berechnet, weil dieser Ausdruck in Klammern 
steht. Anschließend wird das Zwischenergebnis mit 4 multipliziert 
und dann durch 10 dividiert. 
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Es ist wichtig, daß innerhalb eines Ausdrucks die Anzahl der sich 
öffnenden Klammern gleich der Anzahl der sich schließenden ist. 
Andernfalls reagiert B-80 mit einer Fehlermeldung. 


ÜBUNGEN 

1. Welches Ergebnis liefern die folgenden arithmetischen Aus¬ 
drücke? 

5/2.5*10^3, (5/2.5*10r3, ((5/2.5)#10r3 

Um Ihre Antwort zu überprüfen, können Sie den Befehl PRINT vor 
jeden Ausdruck setzen und im direkten Modus das jeweilige Er¬ 
gebnis erhalten. 

2. Schreiben Sie einen basic-konformen Ausdruck für die folgenden 
algebraischen Formeln: 

Y(l-B), A 2 +B 3 +C 4 , (M+B 2 ) N , 2(-X), C+D/X 

Versuchen Sie, diese Beispiele zuerst auf dem Papier auszuar¬ 
beiten, und überprüfen Sie erst dann mit Hilfe des Rechners 
das Ergebnis. 


EINGEBAUTE FUNKTIONEN 

Fast alle Versionen von Basic beinhalten eine Reihe mathemati¬ 
scher Funktionen. Der anschließende Absatz zeigt uns, welche B-80 
für uns bereit halt. 

ABS(X) 

Die ABS(X)-Funktion berechnet den absoluten Wert der Variablen X. 


100 REM ELAS=-1.5 
110 LET ELAS=ABS(ELAS) 

120 PRINT ELAS 
130 END 

Die ABS(X)-Funktion verändert positive Zahlen nicht. 
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ATN(X) 

Die ATN(X)-Funktion berechnet den Arcustangens eines in X Radiant 
angegebenen Winkels. Das Ergebnis ist immer einfach genau unab¬ 
hängig davon, ob X ganzzahlig, einfach oder doppelt genau war. 

10 LET X=2 
20 LET A=ATN(X) 

30 PRINT A 
40 END 

Das Ergebnis des Programms ist 1.10715. 

COS(X) 

Die COS(X)-Funktion berechnet den Cosinus eines in X Radiant an¬ 
gegebenen Winkels. Auch das Ergebnis dieser Funktion ist immer 
einfach genau. Sie wird genauso wie die ATN(X)-Funktion benutzt. 

EXP(X) 

Die EXP(X)-Funktion berechnet den Wert von e hoch X (e = Basis 
des natürlichen Logarithmus). Wird X größer als 87, ist das Er¬ 
gebnis zu groß, um von B-80 bearbeitet zu werden. Dies wird durch 
die Fehlermeldung "Overflow error" angezeigt. 

FIX(X) 

Die FIXCXHFunktion ist nicht in allen Basic-Dialekten enthalten. 
Sie trennt den Nachkommateil einer Zahl ab. Ist X=3.99, so gibt 
FIXCX) den Wert 3. Vergleichen Sie diese Funktion auch mit 
INT(X). 

FRE(Variablentyp) 

Wird diese Funktion mit 0 als Argument benutzt (PRINT FRE(0)), 
erhalten wir die Größe des unbenutzten Speicherplatzes. Ist das 
Argument eine Stringvariable, dann wird uns die für Strings ver¬ 
fügbare Speichergröße angezeigt. 

INT(X) 

Die INTOO-Funktion ermittelt den größtmöglichen Ganzzahlwert von 
X. Hat X den Wert -3.99, so ergibt INT(X) den Wert -4. 
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LOG(X) 

Die LOG(X)-Funktion berechnet den natürlichen Logarithmus von X. 
Für X dürfen nur positive Zahlen verwendet werden. 

RND 

Die RND-Funktion erzeugt eine Zufallszahl zwischen 0 und 1. Die 
Zahlen sind jedoch nicht völlig zufällig, denn die Sequenz ihrer 
Erzeugung ist wiederholbar. 

10 FOR J=1 TO 5 
20 PRINT RND; 

30 NEXT J 
40 END 

RUN 

.245121 .305003 .311866 .515.163 .0583136 

Ok 

Immer, wenn Sie dieses Programm laufen lassen, erhalten Sie die¬ 
selben Zahlen. Ein Programm, das nur die RND-Funktion benutzt, 
bringt immer die gleichen Ergebnisse. 

Wollen Sie nicht reproduzierbare Ergebnisse erzielen, müssen Sie 
den RANDOMIZE-Befehl hinzufügen. 

5 RANDOMIZE 
10 FOR J=1 TO 5 
20 PRINT RND; 

30 NEXT J 
40 END 


RUN 

Random number seed (0-65529)?! 

.58041 .128928 .928324 .901162 .532818 

Ok 


Der RANDOMIZE-Befehl verlangt vom Programmbenutzer eine Zahl zwi¬ 
schen 0 und 65529. Sie wird dazu verwendet, den Zufallszahlen-Ge- 
nerator zu starten. Verschiedene Startwerte erzeugen verschiedene 
Zufalls zahlen. Weil die vom Generator erzeugten Zahlen zwischen 0 
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und 1 liegen, müssen Sie, um größere Zahlen zu erhalten, noch ei¬ 
ne Multiplikation hinzufügen: 

30 PRINT INT(RND*10); 

Fügen Sie diese Zeile in das Beispielprogramm ein. Mit einem 
Start wert von 1 erhalten Sie 5,1,9,9,5 als Zufalls zahlen. 

SIN(X) 

Die SIN(X)-Funktion berechnet den Sinus eines in X Radiant ange¬ 
gebenen Winkels. Das Ergebnis ist immer einfach genau. 

SQR(X) 

Die SQR(X)-Funktion berechnet die Quadratwurzel von X. X muß eine 
positive Zahl sein. 

TAN(X) 

Die TAN(X)-Funktion berechnet den Tangens eines in X Radiant an¬ 
gegebenen Winkels. Das Ergebnis ist einfach genau. 

B-80 gibt dem Programmierer die gebräuchlichsten Funktionen in 
die Hand, die üblicherweise in Berechnungen verwendet werden. An¬ 
hang K des B-80-Handbuchs zeigt einige Umrechnungsmöglichkeiten, 
mit deren Hilfe einige weniger gebräuchliche Funktionen erstellt 
werden können. 


ÜBUNGEN 

1. Schreiben Sie einen Algorithmus, der lOOmal den Vorgang des 
Würfelns simuliert. 

2. Schreiben Sie ein Programm nach dem Algorithmus, den Sie in 
Aufgabe Nummer 1 entwickelt haben. 

3. Ändern Sie das Würfelprogramm so, daß es mitzählt, wie.oft je¬ 
de Nummer erscheint, und lassen Sie das Ergebnis anzeigen. Wie 
häufig muß jede Zahl auftreten, damit Sie wirklich Zufallszah¬ 
len vor sich haben? 
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NUMERISCHE MATRIZEN 

Wir haben schon gesehen, wie nützlich die Wiederholung von Be¬ 
fehlssequenzen mit Hilfe von Schleifen ist. Oft wollen wir jedoch 
die Ergebnisse eines jeden Durchlaufs einzeln abspeichern, damit 
wir sie später im Programm noch verwenden können. Das hieße aber, 
daß wir für jeden Schleifendurchlauf eine neue Variable bereit 
halten müßten. In so einem Fall benutzen wir eine Matrix. 

Eine Matrix besteht aus einer Reihe von gleichartigen 

Datenelementen, die einen gemeinsamen Namen besitzen 

und auf die man durch ihre Platznummer zugreifen kann. 

Eine numerische Matrix ist also eine Serie numerische Werte mit 
einem gemeinsamen Namen. Wie ist es möglich, die einzelnen Werte 
auseinanderzuhalten? Hier wird das gleiche Prinzip wie in der Ma¬ 
thematik angewendet: ein Index wird benutzt. Normalerweise er¬ 
scheint der Index am Variablennamen etwas nach unten versetzt 
0^). Unglücklicherweise unterstützen die meisten Bildschirme 
diese Darstellungsweise jedoch nicht. B-80 schreibt den Index 
deshalb eingeschlossen in Klammern hinter den Variablennamen. Da¬ 
mit wir fünf numerische Werte in einer Variablen mit dem Namen X 
abspeichern können, hätten wir folgende Möglichkeit: 

X(l), X(2), X(3), X(4) und X(5) 

In diesem Beispiel hat die Variable fünf Elemente in der Matrix. 
Die als Index benutzten Nummern stellen die Zuordnung zu den Wer¬ 
ten her. Die Verwendung von Matrizen trägt häufig zur Vereinfa¬ 
chung von Programmen bei. Als Beispiel wollen wir den Durch¬ 
schnitt von fünf Zahlen berechnen und anschließend die Abweichung 
jeder Zahl vom Durchschnitt ausgeben. 


100 INPUT "ZAHL1";A 
110 INPUT "ZAHL2 M ;B 
120 INPUT "ZAHL3”;C 
130 INPUT "ZAHL4":D 
140 INPUT ”ZAHL5";E 
150 ' 

160 LET SUM=A+B+C+D+E 
170 LET DURCHSCHN=SUM/5 
180 ' 

190 PRINT "DER DURCHSCHNITT BETRÄGT: " DURCHSCHN 
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200 PRINT 

210 PRINT "DIE ABWEICHNUNGEN VOM DURCHSCHNITT BETRAGEN:" 

220 PRINT A-DURCHSCHN 
230 PRINT B-DURCHSCHN 
240 PRINT C-DURCHSCHN 
250 PRINT D-DURCHSCHN 
260 PRINT E-DURCHSCHN 
270 ' 

280 END 

Es sollte selbstverständlich sein, die Zeilen 100 bis 140 durch 
eine Schleife zu ersetzen. Ebenso verhält es sich mit den Zeilen • 
220 bis 260* Hier ist das Programm dazu: 

100 LET SUM=0 
110 ' 

120 FOR J=1 TO 5 
130 PRINT "ZAHL" J; 

140 INPUT ": ”,X(J) 

150 LET SUM=SUM+X(J) 

160 NEXT J 
170 ' 

180 LET DURCHSCHN=SUM/5 

190 PRINT "DER DURCHSCHNITT BETRÄGT:" DURCHSCHN 
200 PRINT 

210 PRINT "DIE ABWEICHGUNGEN VOM DURCHSCHNITT BETRAGEN:” 

220 ' 

230 FOR J=1 TO 5 
240 PRINT X(J)-DURCHSCHN 

250 NEXT J 
260 ' 

270 END 


Während der Eingabe der Zahlen in Zeile 140 wird der Wert des 
Schleifenzählers J als Index benutzt. Die Elemente der Matrix X 
werden in der zweiten Schleife dazu herangezogen, die Abweichung 
vom Durchschnitt auszudrucken. Obwohl B-80 allen Variablen zu Be¬ 
ginn des Programms Null zuweist, haben wir das in der ersten Zei¬ 
le trotzdem explizit gemacht. Dadurch soll herausgestellt werden, 
daß SUM eine wichtige Variable innerhalb des Programms ist. Au¬ 
ßerdem initialisieren nicht alle Basic-Dialekte ihre Variablen. 
Matrizen, wie wir sie gerade benutzt haben, sind hervorragend da¬ 
zu geeignet, Datenlisten herzustellen. Die Flexibilität des Pro- 
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gramms ließe sich noch steigern, wenn wir für den Schleifenend¬ 
wert eine Variable verwenden würden. Sie könnte alle ,r 5er M im 
Programm ersetzen. 


ÜBUNGEN 

1. Geben Sie das gerade diskutierte Programm in Ihren Rechner 
ein. Fügen Sie ein INPUT-Kommando hinzu, über das der Endwert 
für die Schleifen eingegeben werden kann. Lassen Sie das Pro¬ 
gramm laufen und untersuchen Sie, was geschieht, wenn Sie für 
den Schleifenendwert eine Zahl größer 10 eingeben. 


DIE DIM-ANWEISUNG 

Haben Sie die letzte Übung ausgeführt und eine Zahl größer 10 als 
Endwert eingegeben, so hat Sie der Rechner mit der Fehlermeldung 
"Subscript out of ränge” konfrontiert. 

B-80 setzt die Maximalgröße einer Matrix auf 10 Elemente fest, 
wenn nichts anderes vereinbart wurde. Wollen Sie mit größeren Ma¬ 
trizen arbeiten, müssen Sie mit der DIM-Anweisung mehr Platz re¬ 
servieren: 

DIM XCAnzahl der Elemente) 

Die Anzahl der Elemente gibt die maximale Größe der Variablen X 
an. Versuchen Sie nicht, diese Anweisung für ein und dieselbe Va¬ 
riable innerhalb eines Programms mehrfach zu benutzen! 

Sie würden sonst nur die Fehlermeldung ”duplicate definition” zu 
Gesicht bekommen. Eine wesentliche Eigenschaft des DIM-Befehls 
ist es, alle verwendeten Einzelelemente auf Null zu setzen. Es 
empfiehlt sich deshalb, vor dem Dimensionieren einer Matrix die¬ 
ser keine Werte zuzuweisen. Am besten ist eine DIM-Anweisung in 
den ersten Zeilen eines Programms aufgehoben. 
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ÜBUNGEN 

1. Welche Vorteile bieten die folgenden Programmzeilen in bezug 
auf das Durchschnittsberechnungs-Programm? 


80 INPUT "WIE VIELE ZAHLEN WERDEN VERARBEITET”,ENDE 
90 DIM X(ENDE) 


2. Wie sehen Sie den Unterschied zwischen einem DIM-Befehl mit 
einer Konstanten und einem dynamischen DIM-Befehl wie in Zeile 
90. 


ZWEIDIMENSIONALE MATRIZEN 

Eindimensionale Matrizen sind immer dann sinnvoll, wenn Listen 
gleichartiger Daten bearbeitet werden sollen. Andererseits tritt 
häufig der Fall auf, daß Tabellen ausgewertet werden müssen. Wie 
Sie in Bild 4.1 sehen können, läßt sich eine Tabelle ohne weite¬ 
res als Matrix auffässen. Jedes Element einer solchen Tabelle 
kann durch zwei Indizes eindeutig lokalisiert werden. Ein Index 
bezeichnet die Spalten- und ein Index die Reihenposition. Bei¬ 
spielsweise ist mit X(2,4) das Element von X gemeint, das in Zei¬ 
le 2, Spalte 4 zu finden ist. Ohne die DIM-Anweisung anzuwenden, 
kann eine zweidimensionale Matrix mit 11 Reihen und 11 Spalten, 
also mit insgesamt 121 Elementen aufgebaut werden. Es ist sinn¬ 
voll, Matrizen immer zu DIMensionieren. Warum ist das so? Wenn 
Sie eine Matrix verwenden, wie die in Bild 4.1 gezeigte, die 25 
einfach genaue Elemente besitzt, belegt diese im Speicher 100 By¬ 
te (erinnern wir uns: jede einfach genaue Zahl belegt 4 Byte). B- 
80 hält für diese Matrix aber 484 Byte Speicherplatz bereit (für 
jede Dimension werden 11 Elemente zugelassen, jedes Element be¬ 
legt 4 Bytes = 11 * 11 * 4). Wir verschwenden also 384 Byte im 
Speicher. 
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Reihen 





Spalten 




0 

1 

2 

3 

4 

0 

X(0,0) 

X(0,1) 

X(0,2) 

X(0,3) 

X(0,4) 

1 

X(1,0) 

X(l,l) 

X(1,2) 

X(l,3) 

X(l,4) 

2 

X(2,0) 

XC 2,1) 

X(2,2) 

X(2,3) 

X(2,4) 

3 

X(3,0) 

X (3,1) 

X(3,2) 

X(3,3) 

X(3,4) 

4 

X(4,0) 

X(4,l) 

X(4,2) 

X(4,3) 

X(4,4) 


Bild 4.1 Zweidimensionales Array 


WIE BENÜTZT HAN EINE ZWEIDIMENSIONALE MATRIX? 

In Kapitel 2 haben wir gesehen, wie man den heutigen Wert eines 
Pfandbriefs berechnet, der in einem Jahr fällig wird. Wir werden 
jetzt eine Tabelle produzieren, die es uns erlaubt, den Wert für 
verschiedene Zinssätze und für verschiedene Laufzeiten zu ermit¬ 
teln. Das Programm beginnt mit der Frage nach dem Zinssatz. In 
Zeile 210 legen wir den Schleifenendwert zu 9 fest. Wir tun das, 
weil der Ausdruck mit dieser Festlegung genau in einen 80-Zei- 
chen/Zeile-Bildschirm paßt. Die Tabelle berücksichtigt Laufzeiten 
bis zu 10 Jahren. Die Dimensionierung in Zeile 230 legt die Größe 
der verwendeten Matrix P fest. Die verschachtelten Schleifen, die 
schließlich die Tabellen erzeugen, beginnen in Zeile 240 und en¬ 
den in Zeile 290. Da die Tabelle in 1%-Abstufungen erstellt wer¬ 
den soll, wird in Zeile 260 von K jeweils 1 subtrahiert, und das 
Ergebnis wird durch 100 dividiert, um einen Prozentwert zu erhal¬ 
ten. Der aktuelle Wert wird in Zeile 270 berechnet und gleichzei¬ 
tig einem Element von P zugeordnet. Die Ausgabe informiert den 
Benutzer, worum es sich handelt. Die Zeilen 420 bis 480 erzeugen 
die Spaltenüberschrift mit Hilfe einer PRINT USING-Anweisung. Die 
eigentliche Tabelle wird mit der Schleife zwischen Zeile 520 und 
580 ausgedruckt. Zuerst erscheint die Zeilenbeschriftung (das je¬ 
weilige Jahr), danach folgen die Werte. Nachdem alle neun Zeilen 
ausgedruckt sind, wird in den Zeilen 600 bis 630 noch eine Bedie¬ 
nungsanleitung für die Tabelle ausgegeben. In Bild 4.3 können Sie 
das Ergebnis des Programmlaufs sehen. 

Zweidimensionale Matrizen, die mit verschachtelten FOR/TO-Schlei- 
fen kombiniert werden, stellen die einfachste Art und Weise dar, 
Tabellen anzufertigen. Sie sollten sich mit den Bildern 4.2 und 
4.3 so lange beschäftigen, bis Sie auch im Detail verstanden ha¬ 
ben, wie die Tabelle entstanden ist. 
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100 REM 
110 ' 


16.MAI 1983 


PL 


120 REM 
120 REM 
140 ' 


TABELLE FÜR VERSCHIEDENE WERTE VON ZINS¬ 
SÄTZEN UND LAUFZEITEN BIS ZU 10 JAHREN 


150 REM 


■-EINGABE- 


160 ' 

170 INPUT "ANFANGSZINSSATZ (.10=10 %) ";START 
180 ' 


190 REM 


- BERECHNUNG - 


200 ' 

210 LET ENDWERT=9 
220 LET JAHRE=10 
230 DIM P(JAHRE,JAHRE) 

240 FOR J=1 TO JAHRE 

250 FOR K=1 TO ENDWERT 

260 LET WERT=(K-1)/100 

270 P(J,K)=1/(1-START+WERT) A J 

280 NEXT K 

290 NEXT J 

300 ' 

310 REM -AUSGABE- 

320 ' 

330 ' 

340 REM AUSDRUCK DER PROGRAMMFUNKTION 

350 ' 

360 PRINT TABC27) "WERTTABELLE" 

370 PRINT 

380 PRINT TABC16) "SPALTEN = ZINSSÄTZE, ZEILEN = JAHRE" 
390 ' 

400 REM AUSDRUCK DER SPALTENÜBERSCHRIFT 

410 ' 

420 PRINT 
430 PRINT " 

440 FOR N=START TO START+ENDWERT/100 STEP .01 
450 PRINT USING "####.##”;N; 

460 NEXT N 
470 PRINT 
480 PRINT 
490 ' 

500 REM TABELLENAUSDRUCK 

510 ' 

520 FOR J=1 TO JAHRE 

530 PRINT USING "## ";J; 
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540 FOR K=1 TO ENDWERT 

550 PRINT USING ".#####";P(J,K) 

560 NEXT K 

570 PRINT 
580 NEXT J 
590 PRINT 

600 PRINT "BEISPIEL:" 

610 PRINT "DER DERZEITIGE WERT EINES IN EINEM JAHR BEI EINER 
VERZINSUNG " 

620 PRINT "VON " START*100 "% AUF DM 1000 ANGEWACHSENEN 
GUTHABENS BETRÄGT ”; 

630 PRINT USING "DM###.##";P(1,1)*1000 
640 ' 

650 REM PROGRAMMENDE 

660 ' 

670 END 


Bild 4.2 


WERTTABELLE 


SPALTEN = ZINSSÄTZE, ZEILEN = JAHRE 


0.10 0.11 0.12 

1 .90909 .90090 .89286 

2 .90909 .81162 .79719 

3 .75131 .73119 .71178 

4 .68301 .65873 .63552 

5 .62092 .59345 .56743 

6 .56447 .53464 .50663 

7 .51316 .48166 .45235 

8 .46651 .43393 .40388 

9 .42410 .39092 .36061 
10 .38554 .35218 .32197 


0.13 0.14 0.15 
.88496 .87719 .86957 
.78315 .76947 .75614 
.69305 .67497 .65752 
.61332 .59208 .57175 
.54276 .51937 .49718 
.48032 .45559 .43233 
.42506 .39964 .37594 
.37316 .35056 .32690 
.33288 .30751 .28426 
.25459 .26974 .24719 


0.16 0.17 0.18 
.86207 .85470 .84746 
.74316 .73051 .71818 
.64066 .63437 .60863 
.55229 .53365 .51579 
.47611 .45611 .43711 
.41044 .38984 .37043 
.35383 .33320 .31392 
.30503 .28478 .26604 
.26295 .24340 .22546 
.22668 .20804 .19106 


BEISPIEL: 

DER DERZEITIGE WERT EINES IN EINEM JAHR BEI EINER VERZINSUNG VON 
10 % AUF DM 1000 ANGEWACHSENEN GUTHABENS BETRÄGT DM909.09. 


Bild 4.3 
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ÜBUNGEN 

1. Schreiben Sie einen Algorithmus zum Programm aus Bild 4.2. 

2. Schreiben Sie ein Programm, das 100 Zufallszahlen generiert, 
sie in einer eindimensionalen Matrix abspeichert und diese an¬ 
schließend ausdruckt. 

3. Ändern Sie das Programm von Übung 2 so, daß sowohl die Zu¬ 
fallszahl als auch ihr Ganzzahlwert in Form einer 2*100-Matrix 
ausgedruckt wird. Die Ganzzahlwerte sollen zwischen 0 und 100 
liegen. 

4. Das Programm von Übung 3 läßt alle 100 Zeilen nacheinander so 
schnell über den Schirm laufen, daß der Benutzer nicht in der 
Lage ist, alle zu lesen. Denken Sie darüber nach, wie man dies 
ändern könnte (Hinweis: Eine INPUT-Anweisung unterbricht ein 
Programm so lange, bis eine Eingabe stattgefunden hat). 
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ANHANG 


UNTERSCHIEDE IN DER VERARBEITUNGSGESCHWINDIGKEIT 

Es ist der Zweck dieses Anhangs, eine Erklärung zu liefern, warum 
ganze Zahlen wesentlich schneller bearbeitet werden als einfach 
oder doppelt genaue. Hierzu machen wir uns auch kurz mit einer 
typischen Mikrocomputer-Architektur vertraut. 


MIKROPROZESSOREN 

Das Herz jedes Mikrocomputers ist ein digitaler Schaltkreis, der 
als Mikroprozessor bezeichnet wird. Die drei Mikroprozessoren, 
die zusammen mit dem CP/M-Betriebssystem benutzt werden, sind der 
INTEL 8080, der INTEL 8085 und ZILOG Z80 (CP/M wurde ursprünglich 
für den 8080 geschrieben, es kann jedoch auch auf dem 8085 und 
dem Z80 laufen, weil diese software-kompatibel sind). In dieser 
kurzen Übersicht wollen wir uns nur mit den internen Registern 
und ihrem Einfluß auf die Arbeitsgeschwindigkeit beschäftigen. 


REGISTER 

Jeder Mikroprozessor enthält eine begrenzte Anzahl von Registern, 
die dazu benutzt werden können, Datenbyte zu speichern. Jedes 
dieser Byte besteht aus acht Teilen (binären Stellen), die als 
Bit bezeichnet werden. Ein Bit ist die kleinste Speichereinheit 
innerhalb eines Rechners. Es kann nur zwei Zustände einnehmen, 
nämlich 0 und 1. Dies ist der Grund, warum ein Mikroprozessor 
ausschließlich binär arbeitet. 

Bit-> 7 6 5 4 3 2 1 0 

+-+-+-+-+—+-+-+-+ 

! 0 ! 0 ! 0 ! 0 ! 0 ! 1 ! 0 ! 1 » 

+—+—+—+—+—+—+—+—+ 

!<- B yte->! 

Bild 4a.1 
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> 

> 2 7 2 6 2 5 2 4 2 3 2 2 2 1 2 ° 

!!!!!!!! 
!!!!!!!! 
!!!!!! 2 
!!!-!! 4 

! ! ! ! 8 

! ! ! 18 

! ! 32 entsprechende 

! 64 Dezimalzahlen 

128 

Bild 4a.2 


In Bild 4a.l sind die 8 Bit zu einem Byte zusammengestellt sicht¬ 
bar. Jedes Register kann ein Byte aufnehmen. In unserem Beispiel 
sind die Bit 0 und 2 im Zustand logisch 1. Weil der Rechner das 
duale Zahlensystem benutzt, können wir jede Bitposition von ihrer 
Wertigkeit her als i-te Potenz von 2 auffassen. Klein i stellt 
die Ordnungsziffer des jeweiligen Bit dar. Bild 4A.2 stellt dies 
in grafischer Form dar. 

Wie Sie dem Bild entnehmen können, ist die größte in einem Byte 
zu speichernde Zahl 255 (für die Leser, die als Ergebnis von 2 
hoch 8 das Ergebnis 256 erhalten und sich jetzt wundern, sei be¬ 
merkt, daß 0 eine gültige Zahl darstellt!). 

Dezimal 255 ist äquivalent zu binär 11111111. Das Register in un¬ 
serem Beispiel enthalt den Wert 5 . 

Wie Sie vermuten werden, erlaubt uns ein einzelnes Register keine 
großen Sprünge im Bereich numerischer Daten. Deshalb besitzt der 
Rechner die Fähigkeit, zwei Register gleichzeitig zu verwenden. 
Diese beiden Register werden als Registerpaar bezeichnet. Sie er¬ 
lauben uns, Zahlen bis zu einer Größe von 2 hoch 16 = 65536 zu 
bearbeiten. 

Bliebe noch zu klären, wie negative Zahlen behandelt werden. Das 
16. Bit eines Registerpaares wird dazu herangezogen, das Vorzei¬ 
chen zu speichern. Dadurch geht uns ein Bit verloren, weshalb 
sich unser Zahlenbereich auf 2 hoch 15 = 32767 in positiver und 
in negativer Richtung reduziert. Rufen Sie sich das Kapitel ins 
Gedächtnis zurück, in dem wir die Ganzzahlen diskutiert haben. 


Bit- 

Basis 2 
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Sie lagen im Bereich von -32768 bis +32767. Dort haben wir dar- 
überhinaus noch gelernt, daß Ganzzahlen 2 Byte für jede Zahl be¬ 
legen. B-80 benutzt dieses Verfahren für alle Ganzzahlen. 

Benötigen wir nun Zahlen, die größer sind als die erlaubten Ganz¬ 
zahlen, so müssen wir auf einfache Genauigkeit zurückgreifen. Je¬ 
de einfach genaue Zahl erfordert 4 Byte Speicherplatz. Unglückli¬ 
cherweise können wir innerhalb des Prozessors keine vier Register 
zusammen benutzen. Ein Registerpaar ist die größtmögliche Spei¬ 
chereinheit, die von 8-Bit-Mikroprozessoren angeboten wird. Weil 
B-80 seine Daten im Arbeitsspeicher des Rechners ablegt und sie 
byte-weise in den Mikroprozessor holt, dauert die Behandlung von 
einfach genauen Zahlen in etwa doppelt so lange wie die von Ganz¬ 
zahlen. Eine Ganzzahl kann mit einem Mal in den Mikroprozessor 
(auch als CPU bezeichnet) geholt und manipuliert werden. Eine 
einfach genaue Zahl hingegen verlangt eine wesentlich komplizier¬ 
tere Handhabung, weil die CPU keine 4 Byte innerhalb eines Be¬ 
fehls behandeln kann. 

Doppelt genaue Zahlen belegen 8 Byte und sind deshalb noch um ei¬ 
niges schwieriger zu handhaben. Normalerweise dauert ihre Verar¬ 
beitung etwa doppelt so lange wie die der einfach genauen Zahlen. 
Berücksichtigen wir nun noch, daß Programmschleifen fast immer 
wesentliche Teile eines Programms ausmachen, so ist leicht einzu¬ 
sehen, daß eine falsche oder unglückliche Wahl der Genauigkeit 
die Ablaufgeschwindigkeit wesentlich herabsetzen kann. 

Jede innerhalb einer Schleife behandelte Variable muß 

während des Programmlaufs den Mikroprozessor passieren. 

Wir sollten deshalb zumindest den Schleifenzähler immer als Ganz¬ 
zahl benutzen. 
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ZEICHENKETTEN-VERARBEITUNG 


Bisher haben wir uns fast ausschließlich mit numerischen Daten 
beschäftigt. Ein Rechner wäre aber wesentlich weniger nützlich, 
könnte er nur Zahlen . verarbeiten. Gottseidank (?) ist es aber 
auch möglich, Rechnungen per Computer zu erstellen und uns allwö¬ 
chentlich mit einer Flut 'persönlicher' Werbebriefe, abgeschickt 
vom Rechner, zu überhäufen. 

Als der Computer die Labors verließ, um anschließend in vielen 
Büros aufzutauchen, wurden viele neuen Sprachen (z.B. COBOL) ent¬ 
wickelt, die sich wesentlich besser zum Verarbeiten von Zeichen¬ 
ketten eignen als zum Berechnen komplizierter wissenschaftlicher 
Formeln. 

Es ist Ihnen schon bekannt, daß eine Stringkonstante eine Zei¬ 
chensequenz umgeben von Anführungszeichen ist und daß jedes Zei¬ 
chen ein Byte Speicherplatz belegt. Außerdem haben Sie gelernt, 
daß Stringvariable eine bequeme Art darstellen, mit Zeichenketten 
umzugehen und daß die Namen von Stringvariablen mit einem Dollar¬ 
zeichen enden müssen. In diesem Kapitel wollen wir untersuchen, 
was man mit Strings noch alles machen kann. 

EINIGES ÜBER STRINGS 

Jedes Zeichen innerhalb einer Zeichenkette belegt ein Byte Spei¬ 
cherplatz. Es ist deshalb (wie wir in Kapitel 4 kennenlernten) 
maximal möglich, 256 verschiedene Zeichen zu benutzen, üblicher¬ 
weise sind in normalen Anwendungen nur 127 davon in Gebrauch. Je¬ 
des dieser 127 Zeichen besitzt seinen eigenen Bitcode. Dieser Co¬ 
de ist unter der Bezeichnung 'ASCII-Code' (American Standard Code 
for Information Interchange) genormt. Die dezimalen Werte dieser 
Codes finden Sie in Anhang A. 

Immer wenn Sie eine Taste drücken, benutzt der Rechner den der 
Taste zugeordneten ASCII-Code und gibt diesen auch auf den Bild¬ 
schirm aus. Diese Codierung ist sehr nützlich für den Programmie¬ 
rer. 

B-80 erlaubt für jede Stringvariable eine Maximallänge von 256 
Zeichen. Die Länge einer Zeichenkette wird dynamisch verwaltet. 
Deshalb müssen wir keine Dimensionierung durchführen (nicht alle 
Dialekte besitzen diese Eigenheit). 
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ZEICHENKETTEN-VERGLEICH 

In Kapitel 4 haben wir schon festgestellt, daß vergleichende Ope¬ 
ratoren auch auf Zeichenketten angewendet werden können. Ein Ver¬ 
gleich zweier Strings findet auf einer Zeichen-per-Zeichen-Basis 
statt. Verglichen werden hier die jeweiligen ASCII-Codes (A dezi¬ 
mal = 65, B dezimal = 66). Die in der folgenden Tabelle gezeigten 
Befehle zeigen, wie man Strings vergleichen kann und was dabei 
herauskommt. Das Beispiel geht davon aus, daß in A$ das Zeichen A 
gespeichert ist und in B$ das Zeichen B. 


Befehl Ergebnis 


IF A$=B$ THEN PRINT "W" ELSE PRINT "F" F 
IF A$<B$ THEN PRINT "W" ELSE PRINT "F" W 
IF A$>B$ THEN PRINT "W" ELSE PRINT "F" F 
IF A$OB$ THEN PRINT "W" ELSE PRINT "F" W 
IF A$<=B$ THEN PRINT "W" ELSE PRINT "F" W 
IF A$>=B$ THEN PRINT "W” ELSE PRINT "F” . F 
IF "A"="B" THEN PRINT "W" ELSE PRINT "F" F 


Die gezeigten Beispiele lassen sich sowohl auf Stringkonstanten 
als auch auf Stringvariablen anwenden. Die zu erwartenden Ergeb¬ 
nisse sind stets gleich. 


BEHANDLUNG VON TEILEN EINER ZEICHENKETTE 

B-80 offeriert eine Reihe von Befehlen, mit denen Teile einer 
Zeichenkette (engl. Substring) bearbeitet werden können. Schauen 
wir uns einmal die folgende Programmzeile an: 


10 LET A$="Wenn im Laufe der Menschheitsgeschichte... 

I j ft i 

5 8 14 18 42 


Leerraumpositionen Summe 


Unterhalb der gezeigten Zeichenkette sehen Sie einen Zeichen Zäh¬ 
ler, der Ihnen die Positionen der jeweiligen Leerräume, von Be- 
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ginn der Zeichenkette aus berechnet, angibt. Die Stringvariable 
A$ besteht aus 42 Zeichen, von denen die Zeichen 5, 8, 14 und 18 
Leerräume sind. 

LEFT$(A$,N) 

Diese Anweisung erlaubt es, die N-Zeichen aus der Stringvariablen 
A$ herauszulösen und zwar beginnend von links. Zum Beispiel würde 
PRINT LEFT$(A$,4) das Ergebnis "Wenn” liefern. Gehen wir einmal 
davon aus, daß der String N$ aus 100 Zeichen besteht und daß in 
den ersten 35 Zeichen von N$ ein Name und eine Adresse zu finden 
sind. PRINT LEFT$(N$,35) holt uns diese Information aus N$ her¬ 
aus. Ein anderes Beispiel zeigt uns die Verwendung einer Ja/Nein- 
Frage : 


100 INPUT "GEBEN SIE JA ODER NEIN EIN”;ANTW0RT$ 
110 IF ANTWORT$="JA" THEN 200 ELSE 300 


Zweck dieser beiden Programmzeilen ist es, in Abhängigkeit von 
der Eingabe das Programm in Zeile 200 oder 300 fortsetzen zu las¬ 
sen. Nehmen wir an, daß der Benutzer nur ein "J" oder ein völlig 
falsches Zeichen eingibt, dann wird das Programm an der falschen 
Stelle fortgesetzt. Das folgende Beispiel hat dieses Problem bes¬ 
ser im Griff: 

110 IF LEFT$(ANTW0RT$,1)="J" THEN 200 ELSE 300 

Jetzt reicht es aus, ein "J” einzugeben, um einen korrekten 
Sprung zu veranlassen. 

RIGHT$(A$,N) 

Diese Anweisung arbeitet sinngemäß genauso wie LEFT$ mit dem Un¬ 
terschied, daß die N-Zeichen beginnend von rechts verwendet wer¬ 
den. PRINT RIGHT$(A$,13) bringt das Ergebnis "geschichte...". 
Dieser Befehl erlaubt es uns, bis auf die am weitesten rechts 
stehenden N-Zeichen den Rest eines Strings zu ignorieren. 

MID$(A$,N,J) 

Mit Hilfe dieser Anweisung können wir einen Teilstring aus der 
Mitte einer Zeichenkette herausholen. Der Teilstring beginnt mit 
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der Position N und holt von dort aus J-Zeichen. PRINT MID$ 
(A$,19,6) hat "Mensch" zum Ergebnis. 

MID$(A$,N) 

Dieser Befehl ist eine Variation des gerade behandelten. Er be¬ 
wirkt, daß alle Zeichen von A$ beginnend an der Position N ausge¬ 
druckt werden. PRINT MID$(A$,19) ergibt deshalb "Menschheitsge¬ 
schichte. . 

Hierzu noch eine Übersicht: 

A$=”SeptemberOktoberNovember" 

PRINT LEFT$(A$,9) -> "September” 

PRINT RIGHT$(A$,8) -> "November" 

PRINT MID$(A$,10,7)-> "Oktober" 

PRINT MID$(A$,10) -> "OktoberNovember" 

Jeder Teilstringbefehl kann als Teil einer Wertzuweisung verwen¬ 
det werden. Bezogen auf die obige Übersicht würde LET X$ = LEFT$ 
(A$,9) der Variablen X$ den Wert September zuweisen. 


ZEICHENKETTENBEZOGENE BEFEHLE 

Es gibt noch einige andere Anweisungen im Zusammenhang mit Zei¬ 
chenketten, die in Programmen, die wir noch behandeln werden, 
sehr nützlich sind. Einige von ihnen eröffnen uns neue Perspekti¬ 
ven bei der Benutzung des Bildschirms, andere sorgen dafür, daß 
nur korrekte Daten eingegeben werden können. Dies bezeichnet man 
auch als Fehlerüberprüfung. 

LEN(X$) 

Diese Anweisung berechnet die Länge der Zeichenkette X$ und über¬ 
gibt sie uns als numerischen Wert. 

10 LET X$="DAS IST EIN STRING" 

20 LET B=LEN(X$) 

30 PRINT B 
40 END 
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RUN 

18 

Ok 

Die LEN(X$)-Anweisung in Zeile 20 ordnet der Variablen B den Wert 
18 zu. Die Zahl 18 ist die Länge der Zeichenkette X$. Der LEN-Be- 
fehl wird immer dann benutzt, wenn es wichtig ist, daß der Benut¬ 
zer eines Programms Daten einer bestimmten Lange eingibt. Bei¬ 
spielsweise wollen wir den Programmbenutzer dazu veranlassen, ei¬ 
ne Postleitzahl mit einer Länge von vier Zeichen einzugeben. Jede 
Eingabe mit mehr oder weniger als vier Zeichen soll als Fehler 
behandelt werden. 


100 INPUT "GEBEN SIE DIE POSTLEITZAHL EIN (4 ZEICHEN) ",PLZ$ 
110 IF LEN(PLZ$)<>4 THEN 100 
120 REM REST DES PROGRAMMS 


In Zeile 110 wird die Eingabelänge überprüft. Ist diese falsch, 
muß die Postleitzahl in Zeile 100 erneut eingegeben werden. 

CHR$(X) 

Dieser Befehl druckt das zum ASCII-Code gehörende Zeichen X aus. 
Befindet sich in X der Wert 65, so gibt PRINT CHR$(X) ein A auf 
dem Bildschirm aus. PRINT CHR$(7) betätigt in Ihrem Rechner einen 
Piepser oder eine Glocke (wenn vorhanden). Schlagen Sie in Anhang 
A die ASCII-Code-Tabelle nach. Das folgende Programm gibt Ihnen 
eine schnelle Übersicht der Zuordnung der Codes zu ihren Zeichen: 

100 REM ASCII ZUSAMMENFASSUNG 

110 FOR J=65 TO 90 

120 PRINT J M = " CHR$(J) ", " J+32 " = " CHR$(J+32) 

130 NEXT J 
140 END 

ASCII-Codes werden nicht nur dazu verwendet, um Buchstaben, Zah¬ 
len und die Interpunktion auszudrucken, sie steuern auch Bild¬ 
schirm- und Druckerfunktionen. Ihre konsequente Verwendung ver¬ 
bessert häufig den Programmkomfort. 
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CRT-Modell 

Dezimal ASCII CodeCs) 

Soroc, Televideo 

27,42 

AMD-3,Osborne 1 

26 

Intertec,ADDS 

12 

Infoton 

12 

Hazeltine 

126,28 

Heath-Zenith 

27,69 

SWTP 

28,18 

DecScope 

27,72,27,74,27,72 

Advantage 

30,15 


Tabelle 5.1 ASCII-Code für Bildschirmlöschen 

Nahezu alle Bildschirmsysteme erlauben das Löschen des Bild¬ 
schirms mit Hilfe eines Kontrollzeichens. Diese Funktion sollte 
zumindest am Anfang eines Programms eingesetzt werden. Leider 
sind diese Codes nicht für alle Systeme gleich. Tabelle 5.1 zeigt 
die gebräuchlichsten Geräte und deren ASCII-Codes. Ihr Geräte¬ 
handbuch gibt Ihnen darüber Auskunft, welche Steuerzeichen Ihr 
Rechner versteht. Testen Sie Ihre Version der Bildschirm-Lösch¬ 
funktion: 

100 LET LOESCH$=CHR$(27)+CHR$(42):REM SOROC TERMINAL 
110 FOR J=1 TO 50 

120 PRINT "SCHREIBEN SIE IRGEND ETWAS AUF DEN SCHIRM" 

130 LET L=L+1 

140 IF L<22 THEN 200 

150 PRINT 

160 PRINT "UM WEITERZUGEHEN DRÜCKEN SIE 'RETURN'"; 

170 INPUT "”,T$ 

180 LET L=0 

190 PRINT LOESCH$ 

200 NEXT J 
210 END 

In Zeile 100 wird die für das SOROC Terminal erforderliche Code¬ 
sequenz zusammengestellt. Die Schleife zwischen den Zeilen 110 
und 200 dient dazu, etwas auf den Schirm zu schreiben. L fungiert 
dabei als Zeilenzähler. Weil die meisten Bildschirme nur 24 Zei¬ 
len dar stellen können, stoppen wir die Ausgabe, wenn L = 22 wird. 
Danach fragen wir, ob der Bildschirm fertiggelesen wurde. Wenn 


128 







Zeichenketten-Verarbeitung 


das der Fall ist, gibt der Benutzer RETURN ein, woraufhin der 
Bildschirm gelöscht wird, so daß wir wieder eine leere "Seite" 
vorfinden. 

übersteigt der Ausdruck eines Programms das Fassungsvermögen des 
Bildschirms, so sollten Sie eine Funktion einplanen, die es dem 
Benutzer erlaubt, die Ausgabe zu unterbrechen und den Ausdruck 
vollständig zu lesen. 

Hauptnachteil der Löschfunktion ist es, daß das Programm seine 
Allgemeingültigkeit verliert und nur noch mit einem bestimmten 
Bildschirm zusammenarbeitet. Deshalb haben wir für die Löschfunk¬ 
tion eine eigene Variable benutzt, die sich leicht ändern läßt. 
Wir ersparen uns damit viel Sucherei, wenn unser Programm an eine 
andere Rechnerumgebung angepaßt werden soll. 

Anpassungen von Programmen an verschiedene Rechnerumge¬ 
bungen lassen sich sehr leicht durchführen, wenn die 
hardware-abhängigen Konstanten innerhalb des Programms 
als Variable benutzt werden. 

VAL(X$) 

Diese Anweisung ermittelt den numerischen Wert von X$. Ist das 
erste Zeichen von X$ kein numerisches Zeichen, so ist das Ergeb¬ 
nis Null. Betrachten Sie das folgende Beispiel: 

100 LET X$="1234" 

110 LET N=VAL(X$) 

120 LET X=N*2 
130 PRINT X 
140 END 

RUN 

2468 

Ok 

Die VAL-Funktion konvertiert einen numerischen String in seinen 
zahlenmäßigen Wert. Gelegentlich ist es einfacher, alle Eingaben 
in Form von Zeichenketten vorzunehmen. Der Grund hierfür ist dar¬ 
in zu sehen, daß uns eine INPUT-Anweisung zusammen mit einer 
Stringvariablen keine Fehlermeldung erzeugt, wenn nichtnumerische 
Daten eingegeben werden. In solchen Fällen überprüfen wir die 
Eingabe durch unser eigenes Programm. 
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STR$(X) 

Der STR$(X)-Be£ehl wandelt den numerischen Wert X in den zugehö¬ 
rigen String um. Er stellt eine Umkehrfunktion von VAL dar. 
Beispiel: 

100 LET X=1234 
110 LET A$=STR$(X) 

120 PRINT A$ 

130 PRINT LEFT$(A$,3) 

140 END 

RUN 

1234 

12 

Ok 

Noch ein Beispiel hierzu: 

100 LET X=160583 
110 LET A$=STR$(X) 

120 PRINT MID$(A$,2,2) MID$(A$,4,2) RIGHT$(A$,2) 

130 END 

RUN 

16.05.83 

Ok 

Wie vorteilhaft der Einsatz dieser Anweisungen wirklich ist, wer¬ 
den wir erst sehen, wenn wir Datenfiles diskutieren. 

ASC(X$) 

Dieser Befehl gibt den numerischen Wert des ASCII-Codes des er¬ 
sten Zeichens von X$ aus. ASC(X$) ergibt 65, wenn das erste Zei¬ 
chen von X$ ein A ist. ASC stellt die Umkehrfunktion zu CHR$ dar. 

SPACE$(N) 

Diese Anweisung erzeugt eine Kette von N Leerraumen. Obwohl die¬ 
ser Befehl im ersten Moment als nicht besonders nützlich er¬ 
scheint, gibt es für ihn eine ganze Reihe von interessanten An¬ 
wendungen. Nehmen Sie an. Sie wollen mehrere Zeichen mit konstan¬ 
tem Abstand zueinander ausgeben, so könnten Sie natürlich die 
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TAB-Anweisung benutzen, wenngleich SPACE$ leichter anzuwenden 
ist: 


100 S$=SPACE$(12) 

110 PRINT "A" S$ "B" S$ "C" 

120 END 

RUN 

ABC 

Ok 

Erinnern Sie sich immer dann an diese Anweisung, wenn Sie das An¬ 
wenden eines TAB-Befehls erwägen, weil sie eine einfache Möglich¬ 
keit darstellt, formatierten Ausdruck zu erzeugen. 

INPUT$(X) 

Die INPUT$(X)-Anweisung stellt eine spezielle Variation des all¬ 
gemeinen INPUT-Befehls dar. Zunächst einmal wird sie ausschließ¬ 
lich mit Strings benutzt. Zweitens wird nach X Zeichen die Einga¬ 
be ohne RETURN beendet. Drittens erscheinen die eingegebenen Zei¬ 
chen nicht auf dem Bildschirm. Diese drei Faktoren machen aus 
INPUT$(X) einen sehr wertvollen Befehl. Wird zum Beispiel ein 
INPUT-Befehl verwendet, um den Ausdruck anzuhalten, muß die 
RETURN-Taste gedrückt werden, um das Programm fortzusetzen. 
Drückt der Benutzer vor RETURN irgend eine andere Taste, dann 
ist das Programm immer noch unterbrochen. Sehen Sie sich an, wie 
hier INPUT$ eingesetzt werden kann: 

160 PRINT "WEITER —> DRÜCKEN SIE IRGEND EINE TASTE" 

170 T$=INPUT$(1) 


INPUT$ wartet nur auf eine Tasteneingabe, danach kann das Pro¬ 
gramm weiterlaufen. 

Die Verarbeitung einer vierstelligen Postleitzahl könnte so aus- 
sehen: 


100 PRINT "GEBEN SIE DIE POSTLEITZAHL EIN" 
110 PLZ$=INPUT$(4) 
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Narrensicher ist diese Version leider noch nicht. Aber sie kann 
verbessert werden: 


100 PRINT "GEBEN SIE DIE POSTLEITZAHL EIN" 

110 PLZ$=INPUT$(4) 

120 IF ASC(LEFT$(PLZ$,1))<48 OR ASC(LEFT$(PLZ$,1))>57 THEN 100 
130 IF ASC(MID$(PLZ$,2,1))<48 OR ASC(MID$(PLZ$,2,1))>57 THEN 100 

140 IF ASC(MID$(PLZ$,3,1))<48 OR ASC(MID$(PLZ$,3,1))>57 THEN 100 

150 IF ASC(RIGHT$(PLZ$,1))<48 OR ASC(RIGHT$(PLZ$,1))>57 THEN 100 

160 REM REST DES PROGRAMMS 


Auch diese Version läßt sich noch verbessern. Wir sollten die 
Eingabe auf dem Bildschirm erscheinen lassen, damit der Benutzer 
seinen Fehler sehen kann. 

100 PRINT "GEBEN SIE DIE POSTLEITZAHL EIN" 

110 PLZ$=INPUT$(4) 

115 PRINT PLZ$ 

120 IF ASC(LEFT$(PLZ$,1))<48 OR ASC(LEFT$(PLZ$,1))>57 THEN 1000 
130 IF ASC(MID$(PLZ$,2,1))<48 OR ASC(MID$(PLZ$,2,1))>57 THEN 1000 
140 IF ASC(MID$(PLZ$,3,1))<48 OR ASC(MID$(PLZ$,3,1))>57 THEN 1000 
150 IF ASC(RIGHT$(PLZ$,1))<48 OR ASC(RIGHT$(PLZ$,1))>57 THEN 1000 
160 REM REST DES PROGRAMMS 


1000, PRINT CHR$(7) "BITTE NUR ZAHLEN EINGEBEN” 

1010 GOTO 100 

Unaufmerksame Programmbenutzer übersehen manchmal Fehlermeldun¬ 
gen, die vom Programm ausgegeben werden. Wir haben deshalb in 
Zeile 1000 mit der Anweisung PRINT CHR$(7) die Fehlermeldung aku¬ 
stisch unterstützt. 

Das INPUT$-Kommando sollte mit etwas Vorsicht gebraucht werden. 
Benutzer, die es gewöhnt sind, nach jeder Eingabe RETURN zu drük- 
ken, könnten auf diese Art und Weise eine zweite INPUT-Anweisung 
überspringen. Dadurch könnten im weiteren Programmverlauf Fehler 
auf treten, die durch fehlende Daten verursacht sind. 
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ÜBUNGEN 

1. Entwerfen Sie einen Algorithmus, der ein Menü mit 10 Möglich¬ 
keiten erzeugt. Das Menü soll mit einem Bildschirmlöschvorgang 
beginnen. Die Liste der einzelnen Funktionen soll formatiert 
ausgedruckt werden. Nach dem Anwahlen der jeweiligen Funktion 
soll der Benutzer RETURN drücken. Für den Fall, daß eine fal¬ 
sche Eingabe stattfindet, soll eine Fehlermeldung ausgegeben 
werden. Anschließend an eine richtige Eingabe soll das Pro¬ 
gramm zu einer von 10 Programmzeilen verzweigen, in denen die 
Funktion ausgeführt wird (im Moment können die Funktionen 
durch END-Befehle ersetzt werden). 

2. Schreiben Sie ein Programm unter Berücksichtigung des Algo¬ 
rithmus von Punkt 1. 

3. Arbeiten Sie das folgende Programm durch und versuchen Sie 
herauszufinden, wo die Unterschiede zu einem früher behandel¬ 
ten Beispiel liegen. 

100 LET A$="ICH DRUCKE BLÖDSINN" 

120 LET LEER$=SPACE$(30) 

130 FOR J=1 TO 50 
140 PRINT A$ 

150 LET L=L+1 

160 IF L<22 THEN 210 

170 PRINT "WEITER --> DRÜCKEN SIE IRGENDEIN TASTE"; 

180 T$=INPUT$(1) 

190 PRINT CHR$(13) LEER$ CHR$(13); 

200 LET L=0 

210 NEXT J 
220 END 

4. Was macht das folgende Programm? 

100 INPUT "GEBEN SIE EINE ZAHL EIN; ",N$ 

110 IF LEN(N$)=0 THEN 210 

120 LET FLAG=1 

130 FOR J=1 TO LEN(N$) 

140 LET PRUEF$=MID$(N$,J,1) 

150 IF PRUEF$<”0” THEN FLAG=0 

160 IF PRUEF$>"9" THEN FLAG=0 

170 IF PRUEF$="." THEN FLAG=1 
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180 IF PRUEF$="-" THEN FLAG=1 
190 NEXT J 

200 IF FLAG=1 THEN 230 
210 PRINT CHR$(7) "FEHLER” 

220 GOTO 100 
230 END 

Können Sie sich Situationen vorstellen, wo das Programm seinen 
Zweck nicht erreicht? Welche Zeilen sollte man einfügen, um 
das Programm zu verbessern? 

5. Ändern Sie das Programm aus Übung 4 so, daß in den Zeilen 150 
bis 180 das ASC-Kommando angewendet werden kann. Ist es mög-- 
lieh, die CHR$-Anweisung zu benutzen? 

6. Wir benötigen eine Routine in einem Programm, die eine String¬ 
variable als Eingabegröße für einen Namen akzeptiert. Die Rou¬ 
tine soll die Stringlänge auf 35 Zeichen festlegen. Erst, wenn 
die Länge erreicht ist, soll das Programm fortgesetzt werden 
können (es soll kein Unterschied zwischen der Eingabe von OTTO 
SEPP und DONAUDAMPFSCHIFFAHRTSKAPITÄN sein). 

7. Nehmen wir an, vertrauliche Aufzeichnungen eines Betriebes 
sollen mit Hilfe eines Rechners verwaltet werden und wir haben 
die Aufgabe, den Zugriff nichtautorisierter Personen zu ver¬ 
hindern. Zu diesem Zweck befindet sich im Programm ein Code¬ 
wort, das von der benutzenden Person eingegeben werden muß, um 
mit dem Programm zu arbeiten. Wird ein falsches Codewort ein¬ 
gegeben, ist das Programm nach fünf 'Piepsern' zu beenden. 
Vergessen Sie nicht, daß nichtautorisierte Personen Ihnen wäh¬ 
rend der Eingabe des Codeworts über die Schulter schauen könn¬ 
ten. 

8. Ein schlauer Leser hat sehr schnell herausgefunden, daß das 
unbekannte Codewort unbefugte Benutzung nicht lange aufhält, 
weil man das Programm mit LIST anschauen kann. Dabei wird dann 
das Codewort sichtbar. Aber auch hierfür hält B-80 eine Lösung 
bereit. Schlagen Sie im B-80-Handbuch den SAVE-Befehl nach und 
beschäftigen Sie sich mit dem P-Zusatz. Dieser Zusatz sollte 
nur sehr zurückhaltend benutzt werden und auch nur dann, wenn 
noch an anderer Stelle eine nicht geschützte Kopie des Pro¬ 
gramms vorliegt. 
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UNTERPROGRAMME 

Grundlegendes Konzept jeder Programmierung sollte es sein, jedes 
Programm aus einer Anzahl kleinerer, überschaubarer Module zusam¬ 
menzusetzen. Die 4-Stufen-Methode haben wir bereits kennenge¬ 
lernt. Sie läßt sich auch auf kleinere Einzelmodule anwenden. 

Ein Unterprogramm ist eine kleine selbständige Einheit 
innerhalb eines größeren Programms. Es führt meist eine 
genau umrissene Aufgabe aus. 

Unterprogramme werden mit der GOSUB-Anweisung aufgerufen. Ein mit 
GOSUB verursachter Sprung in ein Unterprogramm geschieht ungeach¬ 
tet irgendwelcher Bedingungen. Zum Beispiel übergibt die Zeile 

100 GOSUB 900 

die Kontrolle an das Unterprogramm, das in Zeile 900 beginnt. 
Nach dem Ausführen des Unterprogramms wird das Programm mit der 
Zeile, die auf die GOSUB-Anweisung folgt, fortgesetzt. Das Ende 
des Unterprogramms wird mit der RETURN-Anweisung gekennzeichnet. 
Der RETURN-Befehl verursacht die Rückkehr ins Hauptprogramm. Ein 
Unterprogramm kann beliebig groß sein. 

Nehmen wir an, wir hätten ein Programm, das als Antwort auf eine 
Frage einen Buchstaben erwartet. Gültig sind nur Antworten im Be¬ 
reich der Buchstaben A bis E. Um nun die Richtigkeit der Eingabe 
zu überprüfen, wollen wir folgendes Programmsegment untersuchen: 

100 INPUT "DER CHEF SOLLTE CA-E): ",A$ 

110 GOSUB 500:REM ** EINGABEÜBERPRÜFUNG ** 

120 IF FLAG=1 THEN A(1)=ASC(A$) ELSE 100 

200 INPUT "DER DIREKTIONSASSISTENT SOLLTE (A-E): ",A$ 

210 GOSUB 500:REM ** EINGABEÜBERPRÜFUNG ** 

220 IF FLAG=1 THEN A(2)=ASC(A$) ELSE 200 


500 REM - ** EINGABEÜBERPRÜFUNG ** - 

510 LET FLAG=1 
520 IF A$<"A” THEN FLAG=0 
530 IF A$>"E" THEN FLAG=0 
540 RETURN 
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Der GOSUB-Befehl in Zeile 110 verursacht einen Sprung in das Un¬ 
terprogramm, das in Zeile 500 beginnt. Hier erhält die Variable 
FLAG den Wert 1, um eine gültige Antwort zu kennzeichnen. Der In¬ 
halt von A$ wird in den Zeilen 520 und 530 überprüft. Ist er kor¬ 
rekt, dann bleibt FLAG unverändert. Zeile 540 bewirkt den Rück¬ 
sprung ins Hauptprogramm zu Zeile 120. Hier wird abhängig vom In¬ 
halt von FLAG das Programm fortgesetzt. In den Zeilen 200, 210 
und 220 läuft der gleiche Vorgang nochmals ab. 

Die Befehle GOSUB/RETURN erlauben die Anwendung einer Be¬ 
fehlssequenz an verschiedenen Punkten eines Programms, 
ohne daß diese Sequenz mehrfach vorhanden sein muß. 

GOSUB IM VERGLEICH ZU GOTO 

Warum ist es nicht möglich, die GOSUB-Anweisung in Zeile 110 
durch ein GOTO 500 und RETURN durch GOTO 120 zu ersetzen? Würden 
wir dies tun, dann wäre es nicht mehr möglich, die Routine im 
ganzen Programm universell einzusetzen, weil nach Ausführung des 
Unterprogramms das Hauptprogramm immer in Zeile 120 fortgesetzt 
würde. 


DIE VORTEILE VON UNTERPROGRAMMEN 

Zuerst wäre hier der vereinfachte Entwurfsvorgang zu nennen. Es 
ist wesentlich einfacher, in einem überschaubaren Modul einen 
Fehler zu suchen als in einem riesigen Programm. Tritt in einem 
Unterprogramm ein Fehler auf, muß er nur einmal beseitigt werden. 
Außerdem vermeiden Unterprogramme die ständige Wiederholung glei¬ 
cher Befehlsfolgen. Die Programme sind deshalb kleiner und laufen 
manchmal schneller. Im Laufe der Zeit werden Sie über eine Bi¬ 
bliothek nützlicher Unterprogramme verfügen, die es Ihnen er¬ 
spart, für jedes Programm notwendige Routinen neu zu erfinden. 


ÜBUNGEN 

1. Schreiben Sie ein Unterprogramm, das eingegebene Daten auf ih¬ 
ren numerischen Charakter hin überprüft. Vergessen Sie nicht, 
daß es sich dabei nicht nur um Zahlen handelt. 
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2. Schreiben Sie ein Unterprogramm, das ein eingegebenes Datum 
auf die Reihenfolge Tag, Monat, Jahr hin überprüft und das si¬ 
cherstellt, daß jede Eingabe nur zwei Zeichen lang ist. 

3. Wann sollte man Unterprogramme benutzen? Worin sind ihre Vor¬ 
teile zu sehen? 


BEISPIELE FÜR DIE BENUTZUNG VON UNTERPROGRAMMEN 

In Kapitel 5 haben wir gelernt, wie INPUT$ und ASC in Menüs ver¬ 
wendet werden können. Sehr häufig sind solche Menüs mehrfach in 
Programmen enthalten. Ein Unterprogramm kann deshalb die Auswahl 
einer Funktion stark erleichtern. 

Gehen wir davon aus, daß ein Programm ein Menü mit 12 angebotenen 
Funktionen ausgibt und daß jede davon mit einem Buchstaben ange¬ 
wählt werden kann. Die hierfür gültigen Zeichen sind die Buchsta¬ 
ben von A bis L. Ein zweiter Programmteil erzeugt ein ähnliches 
Menü, aber nur mit vier Auswahlmöglichkeiten. 


DIE STANDARDANWAHL 

Häufig tritt der Fall auf, daß eine der Funktionen wesentlich öf¬ 
ter benützt wird als alle anderen. Hier wäre es schön, wenn man 
einfach nur die RETURN-Taste drücken müßte, um diese Funktion an¬ 
zuwählen. 

Wir wollen annehmen, daß die Funktion D aus dem ersten Menü und 
die Funktion B aus dem zweiten so behandelt werden sollen. 

Das Unterprogramm hat drei Aufgaben zu erledigen: 

1. Es muß feststellen, ob der eingegebene Buchstabe gültig war. 

2. Es muß herausfinden, ob die Standardanwahl gewünscht ist. 

3. Der eingegebene Buchstabe muß in eine Zahl umgewandelt werden. 


139 



Unterprogramme und definierbare Funktionen 


Bild 6.1 zeigt ein solches Programm: 

100 REM 10.MAI 1983 PL 

110 ' 

120 REM DIES IST EIN BEISPIEL, WIE MAN UNTERPROGRAMME 

130 REM ZUR ÜBERPRÜFUNG EINER EINGABE BENUTZT 

140 ' 

150 ' 

160 REM EIN MENÜ MIT 12 MÖGLICHKEITEN 

170 ' 

180 ' 

190 REM ZUSAMMENSETZEN DES AUSWAHLSTRINGS 

200 ' 

210 LET Q$="ADL" 

220 GOSUB 500 
230 ' 

240 REM NACH DEM UNTERPROGRAMM STEHT EINE ON GOTO- 

250 REM ANWEISUNG, DIE DIE PROGRAMMVERZWEIGUNG 

260 REM STEUERT 

270 ' 

280 ' 

290 REM HIER SOLL EIN MENÜ MIT 4 MÖGLICHKEITEN STEHEN 

300 ' 

310 ' 

320 REM ZUSAMMENSETZEN DES 2. AUSWAHLSTRINGS 

330 ' 

340 LET Q$="ABD" 

350 GOSUB 500 
360 ' 

370 REM NÄCHSTE ON GOTO-ANWEISUNG 

380 ' 

390 ' 

400 REM REST DES PROGRAMMS 

410 ' 

420 END 

500 REM UNTERPROGRAMM ZUM ÜBERPRÜFEN DER FUNKTIONSAUSWAHL 
510 ' 

520 ' 

530 LET BEGINN$=LEFT$(Q$,1) 

540 LET STANDARD$=MID$(Q$,2,1) 

550 LET LETZTER$=RIGHT$(Q$,1) 

560 ' 

570 PRINT "IHRE AUSWAHL: :T$=INPUT(1) 

580 PRINT T$ 
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590 ' 

600 IF ASC(T$)=13 THEN AUSWAHL=ASC(STANDARD$)-64:G0T0 640 
610 IF T$<BEGINN$ THEN PRINT CHR$(7) CHR$(13):GOTO 570 
620 IF T$>LETZTER$ THEN PRINT CHR$(7) CHR$(13):GOTO 570 
630 LET AUSWAHL=ASC(T$)-64 
640 PRINT 
650 RETURN 

Bild 6.1 Unterprogramm 

Das Programm beginnt in Zeile 210 mit der Zuordnung der Zeichen¬ 
kette "ADL" zur Variablen Q$. Diese Zeichensequenz wird im Unter¬ 
programm in einer speziellen Art und Weise behandelt. Das erste 
Zeichen in Q$ steht für die erste gültige Funktion in der Liste. 
Das zweite Zeichen repräsentiert die Standardanwahl, und das 
letzte Zeichen wählt die letzte Funktion des ersten Menüs aus. 

In Zeile 220 wird das Unterprogramm angesprungen. Die Anfangs-, 
End- und Standardfunktionen von Q$ werden in den Zeilen 530 bis 
550 ihren Variablen zugewiesen. Danach wird der Benutzer aufge¬ 
fordert, eine der Funktionen aus dem Menü auszuwählen. In Zeile 
580 wird getestet, ob es sich dabei um die Standardanwahl gehan¬ 
delt hat, wenn nicht, wird die Option ausgedruckt und das Pro¬ 
gramm in Zeile 610 fortgesetzt. Die Variable AUSWAHL erhält eine 
Zahl zugewiesen, die der numerischen Position der Funktion im Me¬ 
nü entspricht. Die Anweisung ASC(DEFAULT$) erzeugt den ASCII-Code 
68. Das Programm subtrahiert 64 von 68 und weist das Ergebnis 4 
der Variablen AUSWAHL zu. In einem späteren ON GOTO-Befehl kann 
über diese Zahl die Programmverzweigung gesteuert werden. Der 
RETURN-Befehl in Zeile 650 sorgt dafür, daß der Programmlauf mit 
Zeile 230 fortgesetzt werden kann. Eine Besonderheit finden wir 
noch in Zeile 600. Die GOTO 640-Anweisung wird nur dann ausge¬ 
führt, wenn die Bedingung der IF/THEN-Abfrage das Ergebnis "wahr" 
liefert. 

Jeder Befehl, der einer IF/THEN-Anweisung in derselben 
Zeile folgt, wird nur dann ausgeführt, wenn die Bedin¬ 
gung in der Abfrage wahr ist. Dies gilt auch für Befeh¬ 
le, die von IF/THEN mittels eines Doppelpunkts getrennt 
sind. 

Dies ist keine Standardeigenschaft aller Basic-Dialekte. Es kann 
deshalb leicht zu Programmfehlern kommen, wenn Sie fremde Pro- 
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gramme auf B-80 lauffähig machen wollen. Doch zuruck zum Pro¬ 
gramm . 

Enthält T$ nicht den ASCII-Code 13, dann wird in Zeile 610 und 
620 überprüft, ob der eingegebene Buchstabe im gültigen Bereich 
liegt. Ist dies nicht der Fall, wird der 'Piepser' betätigt, und 
das Zeichen muß erneut eingegeben werden. Werden keine Fehler ge¬ 
funden, dann erhält in Zeile 630 die Variable AUSWAHL den ent¬ 
sprechenden Wert zugewiesen und kann später zusammen mit ON GOTO 
den weiteren Programmablauf bestimmen. Als Übung sollten Sie ver¬ 
suchen, das Programm für das zweite Menü nachzuverfolgen. Verge-^ 
wissern Sie sich, daß auch im zweiten Fall alle Tests durchge¬ 
führt werden. 


ÜBUNGEN 

1. Bauen Sie in das Programm aus Bild 6.1 die beiden Menüs ein. 
Das erste Menü soll acht und das zweite drei Funktionen anbie¬ 
ten. Benutzen Sie ein ON GOTO-Kommando nach dem ersten Menü 
und machen Sie das zweite Menü zur Standardanwahl. 

2. Machen Sie sich eine Liste der Unterprogramme, von denen Sie 
der Meinung sind, daß sie in den meisten Programmen verwendet 
werden können. Heben Sie sich diese Liste für später auf und 
ergänzen Sie sie, wenn Sie neue Ideen haben. Diese Unterpro¬ 
gramme können für Sie eine Art von 'Kern' werden, aus dem her¬ 
aus Sie schnell und einfach neue Programme erstellen können. 


DIREKTE CURSOR-POSITIONIERUNG 

Unterprogramme werden oft zur direkten Cursor-Positionierung be¬ 
nutzt. Die direkte Cursor-Positionierung hat den Vorteil, daß al¬ 
le mit der Eingabe zusammenhängenden Ausgabetexte auf einmal auf 
den Bildschirm geschrieben werden können. Außerdem lassen sich 
damit ausdrucksvollere Fehlermeldungen ausgeben. Nicht zuletzt 
ist es damit möglich, wesentlich professioneller wirkende Pro¬ 
gramme zu gestalten. 
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Unglücklicherweise ist die Ansteuerung des Cursors abhängig vom 
verwendeten Rechner. Normalerweise ist eine spezielle Befehlsse¬ 
quenz notwendig, um den Cursor zu einem bestimmten Punkt des 
Bildschirms zu bewegen. Diese Code-Sequenz wird dann vom CRT-Sy- 
stem individuell interpretiert. Bild 6.1 zeigt die Steuersequen¬ 
zen für einige ausgewählte Geräte. 


CRT-Modell 

Cursor Codes 

Bildschirm löschen 

Soroc, Televideo 

27,61,31,31 

27,42 

Advantage 

27,62,31,31 

30,15 

AMD-3 

27,61,-1,31 

26 

Intertec,ADDS 

27,89,31,31 

12 

Infoton 

27,102,31,32 

12 

Hazeltine 

126,17,-1,-1 

126,28 

Heath-Zenith 

27,89,31,31 

27,69 

SWTP 

11,-11 

28,18 

SOL 

27,2,-1,27,1,-1 

11 

Osbome 1 

27,61,32,32 

26 


Tabelle 6.1 Direkte Cursor-Bewegung 


Zur Erinnerung wiederholen wir nochmals die zum Löschen des Bild¬ 
schirms erforderlichen Codes. Sollte Ihr Gerät nicht in der Liste 
aufgeführt sein, so müssen Sie in Ihrem Handbuch nach den Kom¬ 
mandosequenzen suchen. Diese sind normalerweise unter den Punkten 
direkte Cursor-Adressierung oder Cursor setzen zu finden. 

Die meisten Bildschirme können 24 Zeilen mit je 80 Zeichen dar¬ 
stellen. Während wir damit arbeiten, können wir den Bildschirm 
wie eine Matrix auffassen. Soll der Cursor in Zeile 5, Spalte 20 
stehen, drücken wir dies in den Koordinatenwerten (5,20) aus. Wie 
aus Tabelle 6.1 zu sehen ist, benötigen nahezu alle Systeme vier 
Zahlen, um den Cursor zu bewegen. Normalerweise stellen die er¬ 
sten beiden Zahlen eine Nachricht dar, die dem System mitteilt, 
daß der Cursor bewegt werden soll. Das zweite Zahlenpaar wird zu 
den Reihen-, Spaltenkoordinaten addiert und zeigt dann auf die 
Stelle, auf der der Cursor stehen soll. Für das SOROC Terminal 
lautet die Sequenz, um den Cursor auf Reihe 5, Spalte 20 zu set¬ 
zen, folgendermaßen: 
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100 PRINT CHR$(27) CHR$(61) CHR$(5+31) CHR$(20+31); 


Für die Verwendung in einem Unterprogramm formulieren wir allge¬ 
mein: 


100 PRINT CHR$(27) CHR$(61) CHR$(ZEILE+31) CHR$(SPALTE+31); 
110 RETURN 


Damit müssen wir nur noch die korrekten Zeilen- und Spaltenwerte 
zuordnen. 


GRAFISCHE DARSTELLUNGEN MIT DIREKTER CURSOR-POSITIONIERUNG 

Die grafische Darstellung ermöglicht auf einfachste Art und Weise 
einen Vergleich zwischen verschiedenen Daten. Stellen wir einmal 
das Verhältnis zwischen Gewinn und Zeit auf. In diesem Beispiel 
gehen wir davon aus, daß der Gewinn in 100 Mark-Schritten und die 
Monate von 1 bis 9 (also die ersten drei Quartale eines Jahres) 
dargestellt werden. 

DIE DATA/READ-ANWEISUNG 

Ein anderer Weg, die benötigten Berechnungsdaten in ein Programm 
einzubringen, eröffnet sich durch die DATA/READ-Anweisung. Nehmen 
wir an, die Gewinne in DM wären: 

800; 2000; 1500; 2000; 1000; 100; 2000; 3000 

Für unsere Darstellungsart muß der DATA-Befehl wie folgt lauten: 

100 DATA 8,20,15,20,10,1/10,30 

Diese Daten werden mit Hilfe der READ-Anweisung Variablen zuge¬ 
ordnet : 

500 READ V(1),V(2),V(3),V(4),V(5),V(6),V(7),V(8) 

Die Ausführung des READ-Befehls sieht folgendermaßen aus: Zuerst 
erhält V(l) den ersten Wert der DATA-Anweisung zugewiesen (hier 


144 


Unterprogramme und definierbare Funktionen 


8), V(2) erhält den zweiten Wert usw. Dies wird so lange fortge¬ 
setzt, bis alle Daten einer Variablen zugeordnet sind. READ kann 
sowohl für Zeichenketten als auch für numerische Daten angewendet 
werden. Wichtig ist dabei lediglich, daß DATA entsprechende Daten 
bereithält. Zuletzt sei noch bemerkt, daß es nicht notwendig ist, 
den READ-Vorgang in einem Zug zu erledigen. Zwischen den einzel¬ 
nen ZuordnungsVorgängen können beliebig viele Befehle liegen. 
Manchmal ist es erforderlich, dasselbe DATA-Feld erneut zu lesen. 
In diesem Fall wird der RESTORE-Befehl verwendet, um den Daten¬ 
satz wieder von Anfang an lesen zu können. Der Vorteil der 
DATA/READ-Anweisung ist in der Tatsache zu sehen, daß die Daten 
Teil des Programms sind, wie zum Beispiel Variablen. Deshalb 
müssen wir die Daten nicht jedesmal neu eingeben, wenn das Pro- 


gramm laufen 

soll. 

1000 

REM 

10.MAI 1983 PL 

1010 

9 


1020 

REM 

DIESES PROGRAMM STELLT DATEN MITTELS CURSOR¬ 

1030 

REM 

POSITIONIERUNG GRAFISCH DAR 

1040 

9 


1050 

REM 

BEISPIEL FÜR SOROC TERMINAL 

1060 

f 


1070 

$ 


1080 

REM 

VEREINBARUNG DER CRT-PARAMETER 

1090 

r 


1100 

LET 

LOESCH$=CHR$(27)+CHR$ C 42) 

1110 

LET 

MZEILE=24 

1120 

LET 

MSPALTE=80 

1130 

r 


1140 

REM 

HIER STEHEN DIE BENUTZTEN DATEN 

1150 

r 


1160 

LET 

ANZAHL=9 

1170 

DIM 

V(ANZAHL),H(ANZAHL) 

1180 

9 


1190 

REM 

VERTIKAL 

1200 

f 


1210 

DATA 5,20,15,20,20,1,10,10,30 

1220 



1230 

REM 

HORIZONTAL 

1240 

9 


1250 

DATA 1,2,3,4,5,6,7,8,9 

1260 

9 


1270 

REM 

BILDSCHIRM LÖSCHEN UND ACHSEN ZEICHNEN 

1280 
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1290 PRINT L0ESCH$ 

1300 FOR J=1 TO MZEILE-4 
1310 PRINT TAB(5) "!" 

1320 NEXT J 
1330 ' 

1340 PRINT”. 

1350 ' 

1360 FOR J=1 TO MSPALTE-12 
1370 PRINT 

1380 NEXT J 
1390 ' 

1400 REM BERECHNUNG VON MINIMA UND MAXIMA 

1410 ' 

1420 ' 

1430 LET VMAX=lE-37 
1440 LET VMIN=lE+37 
1450 LET HMAX=lE-37 
1460 LET HMIN=lE+37 
1470 ' 

1480 REM VERTIKALE DATEN 

1490 ' 

1500 FOR J=1 TO ANZAHL 
1510 READ V(J) 

1520 IF V(J)>VMAX THEN VMAX=V(J) 

1530 IF VCJXVMIN THEN VMIN =V(J) 

1540 NEXT J 
1550 ' 

1560 REM HORIZONTALE DATEN 

1570 ' 

1580 FOR J=1 TO ANZAHL 
1590 READ H(J) 

1600 IF H(J)>HMAX THEN HMAX=H(J) 

1610 IF H(JXHMIN THEN HMIN=H(J) 

1620 NEXT J 
1630 ' 

1640 REM WERTSKALIERUNG 

1650 ' 

1660 LET VDIFF=VMAX-VMIN 
1670 LET HDIFF=HMAX-HMIN 
1680 ' 

1690 LET VUNIT=MZEILE-5 
1700 LET HUNIT=MSPALTE-17 
1710 ' 

1720 REM AUSDRUCK DER DATEN 


146 


Unterprogramme und definierbare Funktionen 


1730 ' 

1740 FOR J=1 TO ANZAHL 

1750 LET ZEILE=INT(((VMAX-V(J))/VDIFF)*VUNIT)+l 

1760 LET SPALTE=INT((HUNIT/HMAX)*H(J) 

1770 GOSUB 2120 

1780 PRINT 

1790 NEXT J 
1800 ' 

1810 REM AUSDRUCK DER EXTREMWERTE 

1820 PRINT 

1830 LET ZEILE=23 

1840 GOSUB 2120 

1850 PRINT HMAX; 

1860 LET SPALTE=INT(HUNIT/HMAX) 

1870 GOSUB 2120 
1880 PRINT HMIN; 

1890 ' 

1900 LET ZEILE=20 
1910 LET SPALTE=1 
1920 GOSUB 2120 
1930 PRINT VMIN; 

1940 LET ZEILE=1 
1950 GOSUB 2120 
1960 PRINT VMAX; 

1970 ' 

1980 REM AUSDRUCK ANHALTEN, UM SEITE ZU LESEN 

1990 ' 

2000 LET ZEILE=23 
2010 LET SPALTE=20 
2020 GOSUB 2120 

2030 PRINT "WEITER —> DRÜCKEN SIE IRGEND EINE TASTE”; 

2040 T$=INPUT$(1) 

2050 ' 

2060 REM PROGRAMMENDE 

2070 ' 

2080 END 
2090 ' 

2100 REM UNTERPROGRAMM ZUR CURSOR-POSITIONIERUNG 

2110 ' 

2120 PRINT CHR$(27) CHR$(61) CHR$(ZEILE+31) CHR$(SPALTE+31); 
2130 RETURN 


Bild 6,2 Graf, Darstellung mit direkter Cursor-Positionierung 
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Bild 6.2 zeigt ein Programm, das Ihre monatlichen Gewinne dar¬ 
stellt. Die ersten Zeilen des Programms (1100 bis 1120) definie¬ 
ren Typ und Größe des benutzten Schirms. In Zeile 1160 wird die 
Zahl der auszugebenen Punkte vereinbart und die Dimensionierung 
der vertikalen und horizontalen Matrix durchgeführt. Die monatli¬ 
chen Gewinne erscheinen in Zeile 1210, der Monatsindex in Zeile 
1250. Das Programm löscht den Bildschirm und zeichnet die Achsen. 
Damit alle Werte dargestellt werden können, müssen sie skaliert 
werden. Dies geschieht in den Zeilen 1400 bis 1700. 

Die eigentliche Datenausgabe geschieht innerhalb der Schleife 
zwischen den Zeilen 1740 bis 1790. Zeile und Spalte werden je¬ 
weils zugeordnet und mit GOSUB 2120 in eine Cursor-Position umge¬ 
setzt. Zeile 1780 druckt aus. In den Zeilen 1830 bis 2040 
werden jeweils Minima und Maxima ausgedruckt. 

Erhalten Sie neue Monatsdaten, so müssen Sie diese nur an das 
Ende der bereits vorhandenen DATA-Befehle setzen. Durch die be¬ 
grenzte Schirmgröße wird der mögliche Darstellungsbereich einge¬ 
engt. Das Programm, das ich Ihnen in Bild 6.2 vorstelle, eignet 
sich gut dazu, Daten grafisch darzustellen. Obwohl es relativ 
lang ist, sollten Sie die Mühe nicht scheuen, es in Ihren Rechner 
einzugeben und damit zu experimentieren. Anschließend legen Sie 
dieses Programm bitte auf der Diskette ab, wir werden es später 
noch brauchen. 


ÜBUNGEN 

1. Balkengrafiken können in Basic einfach programmiert werden, 
Histogramme sind etwas schwieriger - so sagt man. Ergänzen Sie 
das Grafikprogramm um die folgende Programmzeile: 

1185 IF ZEILE<21 THEN ZEILE=ZEILE+1:G0T0 1770 

Was verursacht diese Zeile im Programm? Sehen Sie für diese 
Programmversion Anwendungsmöglichkeiten? 

2. Wie kann man das Grafikprogramm ändern, damit ein Benutzer 
in der Lage ist, Daten von der Tastatur aus einzugeben? Sie 
sollten in der Lage sein, die Änderung auszuführen, indem 
Sie eine Zeile hinzufügen, zwei löschen und zwei ändern. 
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VOM BENUTZER DEFINIERBARE FUNKTIONEN 

In Kapitel 4 haben wir einige mathematische Funktionen kennenge¬ 
lernt, die B-80 für uns bereit hält. So viele Funktionen dies 
auch sein mögen, eine ist immer dabei, die wir gerne hätten, die 
es in B-80 aber nicht gibt. Deshalb haben die Entwickler von B-80 
die Möglichkeit vorgesehen, eigene Funktions-Definitionen vorzu¬ 
nehmen . 

Die Funktion muß einen eigenen Namen haben und definiert sein. In 
allgemeiner Form: 

DEF FN? = Funktion 

Das Fragezeichen steht für den Funktionsnamen. Wenn Sie bei¬ 
spielsweise das Volumen eines Quaders berechnen wollen, so könnte 
dies folgendermaßen aussehen: 

100 DEF FNV=L*H*B 

200 LET L=5 
210 LET H=7 
220 LET B=10 
230 PRINT FNV 
240 END 

Das in Zeile 230 anfallende Ergebnis lautet 350. Benutzerfunktio¬ 
nen können auch in Zuweisungsausdrücken verwendet werden. LET 
B=FNA stellt eine gültige Zuordnung dar. 

Einer Benutzerfunktion können auch Parameter übergeben werden. 
Nehmen Sie an. Sie müßten die ersten vier Buchstaben einer Zei¬ 
chenkette finden. Beachten Sie auch den Unterschied der Funk¬ 
tions-Definition gegenüber der gerade benutzten. 

100 DEF FNS$(X$)=LEFT$(X$,4) 

200 LET A$="FREIHEIT" 

210 LET X$= M FRIEDEN" 

220 PRINT FNS$(A$) 

230 END 
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Wenn Sie dieses Programm laufen lassen, erhalten Sie den Ausdruck 
"FREI". Der Grund hierfür ist, daß A$ der Funktion übergeben wird 
und nicht X$. Obwohl die Funktion mit X$ vereinbart wurde, wird 
immer nur die Variable benutzt, die der Funktion in Klammern 
übergeben wird. Wesentlich hierbei ist. noch, daß X$ in Zeile 210 
nicht verändert wird. 

REGELN FÜR BENUTZERFUNKTIONEN 

B-80 verlangt die Einhaltung einiger einfacher Regeln, wenn wir 
Benutzerfunktionen verwenden. 

1. Vom Benutzer definierte Funktionen müssen durchlaufen werden, 
bevor sie vom Programm verwendet werden können. B-80 muß die 
Definition kennen, bevor sie benutzt werden kann. Sonst wird 
die Fehlermeldung "Undefined user function" ausgegeben. 

2. Funktionen, die vom Benutzer definiert werden, dürfen nicht 
länger als eine Zeile sein. 

3. Variablen, die innerhalb der Definition verwendet werden, er¬ 
fahren keine Veränderung, wenn sie im Programm nochmals Vor¬ 
kommen . 

4. Benutzerfunktionen können numerische oder Stringvariablen ver¬ 
wenden. Innerhalb der Funktion muß der Datentyp jedoch beibe¬ 
halten werden. 

Benutzerfunktionen erlauben es, komplexe Gebilde in abgekürzter 
Form zu verarbeiten. Sie sind nicht das gleiche wie ein Unterpro¬ 
gramm. Unterprogramme besitzen einen wesentlich größeren Frei¬ 
heitsgrad. Variablen, die innerhalb eines Unterprogramms verwen¬ 
det werden, andern sich auch für das Hauptprogramm. 


ÜBUNGEN 

1. Schreiben Sie eine Benutzerfunktion, die aus Preis und Anzahl 
verkaufter Artikel die Mehrwertsteuer berechnet. 

2. Nehmen Sie an, eine Zeichenkette ist so aufgebaut, daß inner¬ 
halb der ersten 35 Zeichen ein Name, innerhalb der nächsten 20 
Zeichen die Straße und innerhalb der nächsten 30 Zeichen Post- 
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leitzahl und Stadt zu finden sind. Welche Funktion hat die 
folgende Zeile unter dieser Voraussetzung? 

100 DEF FNN$(W$,X,Y)=MID$(W$,X,Y) 


Wie können nachfolgende Programmzeilen diese Zeile verwerten? 

3. Schreiben Sie eine Benutzerfunktion, die eine Zufallszahl zwi¬ 
schen 1 und 12 für die Benutzung in einem Spiel liefert. 


CURSOR-POSITIONIERUNG UND BENUTZERFUNKTIONEN 

Im vorangegangenen Grafikprogramm wurden die Zuordnungen für den 
Reihen- und Spaltenwert immer kurz vor dem Unterprogramm-Aufruf 
gemacht. Im Programm in Bild 6.3 wird eine Benutzerfunktion zur 
Cursor-Steuerung verwendet. So können wir den Cursor ohne expli¬ 
zite Zuweisung für Zeile und Spalte bewegen. 


1000 REM 10.MAI 1983 PL 

1010 ' 

1020 REM DIESES PROGRAMM BERECHNET ABSCHREIBUNGSSUMMEN 

1030 ' 

1040 REM BEISPIEL FÜR SOROC TERMINAL 

1050 ' 

1060 LET LOESCH$=CHR$(27)+CHR$(42) 

1070 LET MZEILE=24 
1080 LET MSPALTE=80 
1090 ' 

1100 LET B$=SPACE$(25)CHR$(42) 

1110 LET F$="#########,.## 

1120 LET MIS=0 
1130 ' 

1140 DEF FNC$(X,Y)=CHR$(27)+CHR$(61)+CHR$(X+31)+CHR$(Y+31) 
1150 ' 

1160 REM AUSDRUCK DES MENÜS 

1170 ' 

1180 PRINT L0ESCH$ 

1190 PRINT TABC(MSPALTE-23)/S) " - ABSCHREIBUNG 
1200 PRINT 
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1210 PRINT 

1220 PRINT TAB(IO) "WIE HOCH IST DER GEGENSTANDSWERT: DM" 
1230 PRINT 

1240 PRINT "WIE HOCH IST DER WERTVERLUST: DM" 

1250 PRINT 

1260 PRINT TABC3) "WELCHE LEBENSDAUER HAT DER GEGENSTAND" 
1270 ' 

1280 REM WERTEINGABE 

1290 ' 

1300 PRINT FNC$(5,38); 

1310 INPUT "”,T$ 

1320 GOSUB 1780 

1330 IF FLAG=1 THEN PRINT FNC$(1,1) "NUR ZAHLEN BITTE":MIS=1 
:GOTO 1300 

1340 LET WERT=VAL(T$) 

1350 ' 

1360 IF MIS=1 THEN PRINT FNC$(1,1) B$:MIS=0 
1370 PRINT FNC$(7,38); 

1380 INPUT ”",T$ 

1390 GOSUB 1780 

1400 IF FLAG=1 THEN PRINT FNC$(1,1) "NUR ZAHLEN":MIS=1:GOTO 
1370 

1410 LET VERLUST=VAL(T$) 

1420 ' 

1430 IF MIS=1 THEN PRINT FNC$(1,1) B$:MIS=0 
1440 PRINT FNC$(9,37); 

1450 INPUT "",T$ 

1460 GOSUB 1780 

1470 IF FLAG=1 THEN PRINT FNC$(1,1) "NUR ZAHLEN":MIS=1:GOTO 
1440 

1480 LET JAHR=VAL(T$) 

1490 ' 

1500 REM AUSDRUCKEN DER ERGEBNISSE 

1510 ' 

1520 PRINT LOESCH$ 

1530 PRINT TAB((MSPALTE-2S)/2) "- ABSCHREIBUNG -" 

1540 PRINT 

1550 PRINT TAB(5) "GEGENSTANDSWERT" 

1560 PRINT USING "DM######,.##";WERT 
1570 PRINT 

1580 PRINT TAB(ll) "JÄHRLICH" TABC31) "GESAMT" TAB(57) " 
BILANZENDWERT" 

1590 PRINT 
1600 ' 
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1610 LET K=WERT-VERLUST 
1620 LET T=1 

1630 LET FAKTOR=JAHR*(JAHR+1) 

1640 ' 

1650 FOR J=1 TO JAHR 

1660 LET DEP=(K#2*(JAHR-T+1))/FAKT0R 

1670 LET GESAMT=GESAMT+DEP 

1680 LET BILANZ=WERT-GESAMT 

1690 LET T=T+1 

1700 PRINT USING "###";J; 

1710 PRINT USING F$;DEP;GESAMT;BILANZ 

1720 NEXT J 
1730 ' 

1740 REM PROGRAMMENDE 

1750 ' 

1760 END 
1770 ' 

1780 REM ÜBERPRÜFUNG DER NUMERISCHEN EINGABE 

1790 ' 

1800 LET FLAG=0 

1810 FOR J=1 TO LEN(T$) 

1820 S$=MID$(T$,J,l) 

1830 IF S$<"0" THEN FLAG=1 

1840 IF S$<"9" THEN FLAG=1 

1850 Ilf S$=".” THEN FLAG=0 

1860 NEXT J 

1870 IF FLAG=1 THEN PRINT CHR$(7) 'gect 

1880 RETURN 

Bild 6.3 Cursor-Positionierung mit einer Benutzerfunktion 


Das Programm in Bild 6.3 benutzt die Jahresbilanzmethode zur Be¬ 
rechnung von Abschreibungen. Damit wir diese Methode verwenden 
können, müssen wir wissen, wie hoch der Neuwert war, wie hoch der 
Restwert ist und wie lang die Lebensdauer des Gegenstands ist. 

Diese drei Daten werden mit INPUT-Anweisungen in das Programm ge¬ 
bracht. Die Cursor-Kontrollfunktion wird in Zeile 1140 definiert. 
Weil diese Funktion eine Zeichenkette zurückgibt, wird FNC$ als 
Name benutzt. Die vertikale und horizontale Position wird mit den 
Variablen X und Y übergeben. Das Programm orientiert sich wieder 
am SOROC Terminal. Nachdem die zum Programm gehörenden Fragen 
ausgegeben wurden, wird der Cursor hinter die jeweilige Frage ge- 
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stellt, um eine zugehörige Eingabe entgegenzunehmen. Nun wollen 
wir die Positionierung des Cursors für die erste Frage untersu¬ 
chen. Wenn Sie die Zahl der Zeichen mitzählen (vergessen Sie die 
TAB(10)-Anweisung nicht!), so werden Sie herausfinden, daß der 
Cursor an 38. Stelle der fünften Zeile stehen muß. Haben Sie den 
Gegenstandswert eingegeben, wird mit dem Unterprogramm-Aufruf in 
Zeile 1780 überprüft, ob es sich um eine rein numerische Eingabe 
handelt. Die Zeile 1850 ist erforderlich, weil der Gegenstands¬ 
wert auch im Pfennigbereich liegen kann. Wird ein nichtnumeri¬ 
sches Zeichen entdeckt, erhält FLAG den Wert 1. Das IF/THEN-Kom- 
mando in Zeile 1870 ist dann falsch, weshalb der 'Piepser' betä¬ 
tigt wird. Anschließend muß der Wert erneut eingegeben werden. 
Nach einer korrekten Eingabe wird das Fehlerflag MIS untersucht, 
das angibt, ob eine Fehlermeldung auf dem Bildschirm steht. Wenn 
dies zutrifft, wird sie gelöscht. Bemerkenswert ist noch die Art 
und Weise, wie PRINT USING in Zeüe 1710 benutzt wird. Weü PRINT 
USING eine Stringkonstante zum formatierten Ausdrucken erhält, 
können wir den String zuordnen wie jeden anderen auch. Die füh¬ 
renden Leerräume von F$ werden zum Abstandhalten eingesetzt, wäh¬ 
rend die Tabelle zum Ausdruck kommt. Das Komma vor dem Dezimal¬ 
punkt in F$ bewirkt, daß alle Kommas am richtigen Platz stehen. 
Zur Illustration hier noch die Tabelle: 


- ABSCHREIBUNG - 


GEGENSTANDSWERT DM47,500 



JÄHRLICH 

GESAMT 

BILANZENDWERT 

1 

11,250.00 

11,250.00 

36,250.00 

2 

9,642.86 

20,892.90 

26,607.10 

3 

8,035.71 

28,828.60 

18,571.40 

4 

6,428.57 

35,357.10 

12,142.90 

5 

4,821.43 

40,178.60 

7,321.43 

6 

3,214.29 

43,392.90 

4,107.14 

7 

1,607.14 

45,000.00 

2,500.00 


Bild 6.4 


Die Zahlen wurden im Beispiel aus einem besonderen Grund gewählt. 
Der Restwert wurde mit 2500 DM eingegeben, weshalb dieser Wert am 
Ende der Tabelle erscheint. Die Summe der ersten beiden Abschrei¬ 
bungswerte beträgt 20892.86 und nicht 20892.90, wie dies in Spal¬ 
te 2 zu finden ist. Es handelt sich hierbei um einen Rundungsfeh¬ 
ler, der während der Berechnung auftrat. Dieses Problem wird mit 
teureren Gegenständen noch größer. 
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Es kann nur durch die Verwendung doppelt genauer Zahlen gelöst 
werden. Es ist eine schöne Übung für Sie, dies mit einem DEFDBL- 
Befehl durchzuführen. Haben Sie diese Anweisung richtig verwen¬ 
det, so erhalten Sie Werte, die auf den Pfennig genau stimmen. 


ÜBUNGEN 

1. Welche Vorteile bietet es, die Cursor-Positionierung mit einer 
Benutzerfunktion anstelle eines Unterprogramms durchzuführen? 

2. Welchen Vorteil bietet die Zuweisung von F$ im Abschreibungs¬ 
programm in bezug auf die PRINT USING-Anweisung? 

3. Im Abschreibungsprogramm wurde der Variablen MZEILE der Wert 
für 24 Zeilen zugeordnet, aber nie benutzt. Ändern Sie das 
Programm so, daß es für mehr als 24 Jahre benutzbar wird. 

4. Entwerfen Sie einen Algorithmus, der das lOOfache würfeln mit 
zwei Würfeln simuliert, und drucken Sie ein Histogramm für die 
Auftrittshäufigkeit der Zahlen aus. Verwenden Sie so viele Be¬ 
nutzerfunktionen als möglich. Wie muß das Histogramm aussehen, 
wenn es sich um zufällige Zahlen handelt? 

5. Schreiben Sie ein Programm passend zu dem unter 4 entwickelten 
Algorithmus. Sehen Sie Ihre Erwartungen bestätigt? Haben Sie 
den RANDOMIZE-Befehl verwendet? 
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SEQUENTIELLE DATEIEN 


Bei unseren bisherigen Betrachtungen haben wir das Einbringen von 
Daten in Programme von der Diskette aus vernachlässigt. Dabei ist 
dies eine sehr wesentliche Eigenschaft eines Rechners. In diesem 
Kapitel wollen wir uns mit den Möglichkeiten beschäftigen, die 
uns in dieser Beziehung von CP/M und B-80 geboten werden. 


DIE DISKETTE 

Die meisten Mikrocomputer besitzen als Massenspeicher eine soge¬ 
nannte Disketten-Station. Jede Diskette besteht aus einem dünnen, 
kreisförmigen Stück Kunststoff, auf dessen Oberfläche sich eine 
Magnetschicht befindet. Sie ist ähnlich aufgebaut wie ein Ton¬ 
band. Zum Schutz der Oberfläche ist die eigentliche Diskette mit 
einem Gehäuse aus Pappe umgeben. Sie sollten unbedingt vermeiden, 
die Diskette zu knicken oder anderweitig mechanisch zu beschädi¬ 
gen (selbst die Beschriftung des Aufklebers auf der Diskette 
selbst kann schon Schäden hervorrufen). Selbstverständlich ist 
auch Schmutz jeder Art (auch kondensiertes Nikotin) der Betriebs¬ 
sicherheit und der Lebensdauer der Diskette nicht förderlich. 
Vermeiden Sie es auch, die eigentliche Disketten-Oberfläche zu 
berühren. 

In der Mitte der Diskette sehen Sie ein großes Loch. Dieses Loch 
nimmt innerhalb des Laufwerks die Zentrierspindel auf. Im Betrieb 
dreht sich die Spindel mit etwa. 360 Umdrehungen pro Minute. Die 
Umdrehungsgeschwindigkeit muß sehr konstant sein und wird deshalb 
von der Elektronik des Laufwerks innerhalb sehr kleiner Toleran¬ 
zen geregelt. In dem Moment, in dem Sie die Tür des Laufwerks 
schließen, ist die Spindel im Eingriff. 

Das runde, dunkelbraune Kunststoffstück in der Umhüllung ist in 
sogenannte Spuren (engl, tracks) unterteilt. Die Spuren können 
wir uns als auf der Diskette verteilte konzentrische Ringe vor¬ 
stellen. Die Diskette ist nicht wie eine Schallplatte auf geteilt, 
bei der die Tonspur eine Spirale darstellt. 

Jede der Spuren ist in mehrere Sektoren unterteilt. Jeder Sektor 
kann eine genau definierte Datenmenge aufnehmen. Eine Spur, die 
in 10 Sektoren unterteilt ist, von denen jeder 256 Datenbyte auf¬ 
nehmen kann, hat eine Speicherkapazität von 2560 Byte oder 2,5 
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KByte (1024 Byte = 1 KByte). Die Anzahl der Spuren und der Sekto¬ 
ren variiert von System zu System. Typische Speicherkapazitäten 
von Disketten liegen zwischen 100 KByte und 1 MByte (1024 Kbyte = 
1 MegaByte). 

Wie findet das Betriebssystem nun innerhalb dieser Datenmenge die 
benötigte Information? 

Ihre Diskette besitzt ein kleines, radial angeordnetes Loch. Die¬ 
ses Loch ist das sogenannte Indexloch. Das Disketten-Laufwerk 
stellt mit Hilfe einer Lichtschranke fest, wo sich dieses Loch 
befindet. Ein Impuls zeigt bei jeder Umdrehung an, daß das Loch 
innerhalb der Lichtschranke aufgetaucht ist. Dies wird zur Kenn¬ 
zeichnung des Spuranfangs verwendet. 

Bei genauer Betrachtung der Diskette werden Sie noch ein längli¬ 
ches, ebenfalls radial angeordnetes Loch in der Hülle vorfinden. 
In diesem auch als Fenster bezeichneten Ausschnitt bewegt sich 
der Schreib/Lesekopf radial hin und her. Er wird von einem 
Schrittmotor über die jeweilige Spur gestellt. 
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Bild 7.2 Aufteilung einer Spur in Sektoren 


Die Mechanik des Laufwerks sorgt dafür, daß wir jeden Datensektor 
gezielt anwählen können. Jedesmal, wenn wir auf der Diskette eine 
Datei eröffnen, wird der Name und die zu der Datei gehörenden 
Speicherabschnitte in ein Inhaltsverzeichnis eingetragen. 

Normalerweise liegt dieses Inhaltsverzeichnis beim CP/M-Betriebs- 
system auf der zweiten Spur. Wollen wir eine Datei von einer Dis¬ 
kette zurücklesen, holt sich CP/M die Adresse der Datei aus dem 
Inhaltsverzeichnis und setzt sie zusammen mit dem Laufwerk in ei¬ 
ne mechanische Position um. 

Glücklicherweise müssen wir uns um diesen Vorgang nicht selbst 
kümmern. Die Kleinarbeit übernehmen hier CP/M und B-80. Wie wir 
im Gegenteil noch sehen werden, ist es sehr einfach, in B-80 mit 
Disketten-Dateien zu arbeiten. 


DISKETTEN-DATEIEN 

Als Sie sich mit dem FILES-Befehl im 1. Kapitel das Inhaltsver¬ 
zeichnis der Diskette angesehen haben, konnten Sie zwei Katego¬ 
rien von Dateien sehen. Die erste waren Dateien vom Typ .BAS und 
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vom Typ .COM. Die zweite Kategorie beinhaltet alle anderen Typen 
von Dateien. Mit der zweiten Kategorie wollen wir uns in diesem 
Kapitel beschäftigen. 

Eine Disketten-Datei ist eine Datensammlung, die in einer wohlde¬ 
finierten Art sortiert ist. Programmdateien (z.B. vom Typ .COM) 
sind so organisiert, daß sie ausführbar sind. Eine andere Disket¬ 
ten-Datei könnte zum Beispiel die Liste aller Kunden eines Be¬ 
triebs enthalten. Eine dritte Datei könnte Daten in Form von 
ASCII-Sequenzen enthalten, die, auf einen Drucker ausgegeben, ein 
Buch ergeben. Dieses Buch wurde tatsächlich auf einem Mikrocompu¬ 
ter als Disketten-Datei erstellt. 

Zunächst ist es gar nicht wichtig, welchen Inhalt eine Datei hat. 
Wichtig ist nur, daß Sie verstanden haben, daß es sich dabei um 
eine beliebig sortierte Datensammlung handelt. Es ist die Aufgabe 
des Programmierers zu bestimmen, wie sie organisiert sein soll. 


DATEITYPEN 

Zwei Grundtypen von Disketten-Dateien werden vom B-80-Interpreter 
unterstützt: 

1. Sequentielle Dateien und 

2. Dateien mit wahlfreiem Zugriff 

Jeder dieser beiden Typen hat Vor- und Nachteile, die anhand ei¬ 
ner Aufgabenstellung vom Programmierer richtig eingeschätzt wer¬ 
den müssen. Zunächst wollen wir uns mit sequentiellen Dateien be¬ 
schäftigen. Anschließend werden wir Dateien mit wahlfreiem Zu¬ 
griff behandeln. Zuletzt kombinieren wir beide Dateitypen und 
versuchen, die Vorteile beider zusammenzubringen. 


SEQUENTIELLE DATEIEN 

Eine sequentielle Datei speichert neue Daten immer im Anschluß an 
die alten. Um dies zu verdeutlichen, wollen wir die folgenden Na¬ 
men in einer sequentiellen Datei abspeichern: 

Irene, Renate, Peter, Snoopy, Tigerle 
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Könnten wir eine vollständige Spur mit allen Sektoren sequentiell 
benutzen, so würde die Datei folgendermaßen aussehen: 

Dateianfang Dateiende 

f j 

V V 

Irene, Renate, Peter, Snoopy, Tigerle 


In sequentiellen Dateien wird das Komma zur Trennung der einzel¬ 
nen Datensätze benutzt. 


Der B-80-Interpreter benutzt Trennungszeichen zur Kenn¬ 
zeichnung von Anfang und Ende eines Datensatzes. 


Das Trennungszeichen ist der einzige Separator, der in sequen¬ 
tiellen Dateien zum Auseinander halten der Datensätze dient. Se¬ 
quentielle Dateien sind deshalb sehr dicht gepackt und haben kei¬ 
ne "Löcher" gespeichert. 

Wollen wir einen Datensatz von der Diskette zurückholen, müssen 
wir die Datei von Anfang an lesen, bis wir entweder den Datensatz 
gefunden haben oder das Ende der Datei erreicht ist. Stellen Sie 
sich vor, wir hätten aus einer Datei mit 1000 Namen einen zu fin¬ 
den, der, wie könnte es auch anders sein, natürlich an vorletzter 
Stelle steht. Es bleibt uns nicht erspart, 998 Namen zu lesen, 
bis der uns interessierende gefunden ist. Ein Vergleich soll 
Ihnen diesen Vorgang näher bringen. 

Nehmen Sie an. Sie hätten eine Liste mit 1000 Namen auf Ihrem 
Kassettenrekorder gespeichert und es wäre aus irgendeinem Grund 
notwendig, den 999. Namen zu finden. Sie müßten dann das Band zum 
Anfang zurücklaufen lassen und alle 998 Namen, die Sie nicht in¬ 
teressieren, abhören. Erst dann bekämen Sie den gewünschten Na¬ 
men. 

Sequentielle Dateien müssen in der gleichen Reihenfol¬ 
ge gelesen werden, in der sie geschrieben wurden. 
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BEFEHLE FÜR SEQUENTIELLE DATEIEN 

B-80 erwartet von Ihnen, daß Sie sich an einige Konventionen hal¬ 
ten, wenn Sie sequentielle Dateien benutzen. Der erste Schritt 
ist immer die Verwendung des OPEN-Befehls. Nachdem eine Datei 
erst geschrieben sein muß, bevor sie gelesen werden kann, benut¬ 
zen wir OPEN im 'O'-Modus (0 für engl, output = Ausgabe). Die 
allgemeine Form des OPEN-Befehls ist: 

OPEN "0",#Dateinummer,"Dateiname" 

Die Dateinummer wird auch bei späteren Schreib/Leseaktivitäten 
benutzt, der Dateiname wird ins Inhaltsverzeichnis der Diskette 
eingetragen. Die folgende Programmzeile 

100 OPEN ”0”,#2,"ADRESSEN" 

bedeutet, daß wir eine sequentielle Datei mit dem Namen ADRESSEN 
und der Dateinummer 2 als Ausgabedatei eröffnen. Spätere Dateizu¬ 
griffe werden unter Zuhilfenahme der Nummer 2 ausgeführt. Die Da¬ 
teinummer stellt hier eine Art Abkürzung des Dateinamens dar. 

Der zweite Schritt ist jetzt das Schreiben in die Datei. B-80 
hält drei Befehle bereit, die dazu verwendet werden können. 
Momentan wollen wir uns aber nur mit dem WRITE #-Befehl beschäf¬ 
tigen. 


WRITE # 

Der WRITE #-Befehl wird dazu benutzt, Datensätze in eine sequen¬ 
tielle Datei zu schreiben. Er kann natürlich nur dann Anwendung 
finden, wenn die Datei vorher mit OPEN im 'O'-Modus eröffnet wur¬ 
de. WRITE # separiert die Datensätze automatisch mit Kommas. Zei¬ 
chenketten werden mit Anführungszeichen getrennt. Hier ein Bei¬ 
spiel für die Anwendung von WRITE #: 


100 OPEN "0",#2,"ADRESSEN" 
110 WRITE #2,A,B,C$ 


Weil die Datei im 'O'-Modus eröffnet wurde, weiß B-80, daß es Da¬ 
tensätze in die Datei mit dem Namen ADRESSEN schreiben soll. Ge- 
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schrieben werden Datensätze, die aus den Variablen A, B und C$ 
bestehen. 

Der dritte Schritt ist das Schließen der Datei, wenn keine weite¬ 
ren Daten hinzugefügt werden sollen. Dies geschieht mit dem CLOSE 
#-Befehl. Wurde eine Datei geschlossen, so ist es nicht mehr mög¬ 
lich, auf sie zuzugreifen, solange sie nicht mit einem neuen 
OPEN-Befehl zugreifbar gemacht wird. 

CLOSE #Dateinummer 

Die Dateinummer muß mit der Nummer, die innerhalb des OPEN-Be- 
fehls benutzt wurde, identisch sein. Hier nun eine vollständige 
Sequenz: 


100 OPEN "0”,#2,"ADRESSEN” 
110 WRITE #2,A,B,C$ 

120 CLOSE #2 


LESEN EINER SEQUENTIELLEN DATEI 

Unsere Drei-Schritte-Sequenz eröffnete eine Datei, schrieb etwas 
hinein und schloß sie wieder. Wenn wir uns schon die Mühe gemacht 
haben, eine Datei zu schreiben, sollten wir sie auch wieder aus- 
lesen. Hierzu eröffnen wir die Datei in der folgenden Form: 

OPEN ”1”,#Dateinummer,"Dateiname” 

Der einzige Unterschied zum vorher benutzten OPEN-Kommando ist 
das I (I für engl, input = Eingabe). Das I vereinbart die Datei 
als Datenquelle eines Programms. Nachdem wir das OPEN-Kommando 

100 OPEN "I”,#2,"ADRESSEN" 

verwendet haben, können wir die Datei lesen. Auch hier hält B-80 
mehrere Befehle bereit, wovon wir uns aber nur den INPUT #-Befehl 
ansehen wollen. Er wird folgendermaßen gebraucht: 

INPUT #Dateinummer, < Liste der Variablen > 

Die Dateinummer ist wieder identisch mit der aus der OPEN-Anwei- 
sung. 
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Die Variablensequenz, die innerhalb der INPUT-Anweisung benutzt 
wird, muß mit der übereinstimmen, die anläßlich des Schreibens 
verwendet wurde. In unserem Beispiel schreiben wir zwei numeri¬ 
sche Variablen und eine Stringvariable in die Datei. Stringvaria¬ 
blen werden mit Anführungszeichen, numerische Variablen mit Kom¬ 
mas getrennt. Würden wir die Reihenfolge der Variablen ändern, 
wäre B-80 nicht mehr in der Lage, Daten richtig zuzuordnen. Wir 
sind deshalb gezwungen, die Reihenfolge streng einzuhalten. 


100 OPEN "I",#2,"ADRESSEN" 
110 INPUT #2,X,Y,Z$ 


Wie Sie im Beispiel sehen, müssen wir nicht die gleichen Varia¬ 
blennamen verwenden. Wichtig ist jedoch, daß es sich bei den Va¬ 
riablen um den selben Typ handelt, der beim Schreiben benutzt 
wurde. 


WIE MAN EINE SEQUENTIELLE DATEI ANWENDET 


Nachdem wir alle Regeln kennengelernt haben, können wir uns einem 
praktischen Beispiel zuwenden. Es sollen die wöchentlichen Ver¬ 
kaufszahlen eines Betriebes aufgezeichnet werden. Bitte speichern 
Sie das Programm auf der Diskette ab. Wir werden es später noch 
ausbauen. 


100 REM 
110 ' 

120 REM 
130 REM 
140 ' 

150 REM 
160 ' 

170 LET LOESCH$=CHR$(27)+CHR$(42) 
180 ' 

190 REM EINGABE 

200 ' 

210 PRINT L0ESCH$ 

220 INPUT;*’ANZAHL DER WOCHEN: ",T$ 

230 GOSUB 600 

240 IF FLAG=1 THEN 220 


10.MAI 1983 PL 

DIESES PROGRAMM SCHREIBT DIE WÖCHENTLICHEN 
VERKAUFSZAHLEN IN EINE SEQUENTIELLE DATEI 

BILDSCHIRM LÖSCHEN (SOROC TERMINAL) 
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250 LET N=VAL(T$) 

260 ' 

270 REM MATRIX DIMENSIONIEREN 

280 ' 

290 DIM X(N) 

300 ' 

310 REM DATEN HOLEN 

320 ' 

330 PRINT LOESCH$ 

340 ' 

350 FOR J=1 TO N 

360 PRINT "WOCHENNUMMER 

370 PRINT USING J; 

380 PRINT "= 

390 INPUT;"”,T$ 

400 GOSUB 600 

410 IF FLAG=1 THEN 360 

420 LET X(J)=VAL(T$) 

430 PRINT 

440 NEXT J 
450 ' 

460 REM AUSGABE 

470 ' 

480 OPEN ”0",#1,"SDATA" 

490 ' 

500 FOR J=1 TO N 
510 WRITE #1,J,X(J) 

520 NEXT J 
530 ' 

540 CLOSE #1 
550 ' 

560 REM ENDE 

570 ' 

580 END 
590 ' 

600 REM UNTERPROGRAMM FÜR FALSCHE EINGABE 

610 ' 

620 LET FLAG=0 
630 ' 

640 FOR K=1 TO LEN(T$) 

650 LET S$=MID$(T$,K,1) 

660 IF S$<"0" THEN FLAG=1 

670 IF S$>”9" THEN FLAG=1 

680 NEXT K 


( (y*. t £ oAi? 
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690 ' 

700 IF LEN(T$)=0 THEN FLAG=1 
710 IF FLAG=1 THEN PRINT CHR$(7) CHR$(13); 

720 RETURN 

Bild 7.3 Schreiben in eine sequentielle Datei 


+CZ 


Das Programm aus Bild 7.3 beginnt mit der Vereinbarung der Bild¬ 
schirm-Löschsequenz und fragt nach der Zahl der wöchentlichen 
Verkäufe. Beachten Sie die Form der INPUT-Anweisung in Zeile 220. 
Auf INPUT folgt ein Strichpunkt, der verhindert, daß nach dem 
Drücken der RETURN-Taste der Cursor in die nächste Zeile geht. 
Der Cursor bleibt hinter dem Eingabetext stehen. 

In Zeile 230 wird ein Unterprogramm aufgerufen, das in Zeile 600 
beginnt und den Inhalt von T$ auf seinen numerischen Charakter 
hin überprüft. Wird ein Fehler gefunden, so wird FLAG auf 1 ge¬ 
setzt und der 'Piepser' betätigt. Gleichzeitig wird der Cursor an 
den Zeilenanfang positioniert. Nach dem Verlassen des Unterpro¬ 
gramms wird in Zeile 240, wenn FLAG=1 ist, der Cursor erneut hin¬ 
ter den Eingabetext gestellt. Dies wirkt, als hätten wir die di¬ 
rekte Cursor-Positionierung angewendet. Tatsächlich haben wir 
dies nicht getan, weil der Aufwand für eine einzige Eingabe zu 
groß ist. 

Wurde eine richtige Zahl eingegeben, läuft das Programm mit Zeile 
250 weiter. N wird dazu herangezogen, die Matrix zu dimensionie¬ 
ren, in der die Verkaufszahlen abgespeichert werden sollen. Dies 
geschieht in der Schleife, die in Zeile 350 beginnt. Die eingege¬ 
benen Zahlen werden wieder auf ihre Zulässigkeit hin überprüft. 
In Zeile 480 wird die Datei eröffnet, und innerhalb einer Schlei¬ 
fe, als deren Zähler N fungiert, werden die Daten auf der Disket¬ 
te abgelegt. In Zeile 540 wird die Datei geschlossen und das Pro¬ 
gramm beendet. 


WURDE DIE DATEI WIRKLICH GESCHRIEBEN? 

Mit dem FILES-Befehl können wir uns vergewissern, ob die Datei 
mit dem Namen SDATA im Inhaltsverzeichnis steht. Dies geht sehr 
einfach, weil SDATA die einzige Datei ohne Angabe eines Dateityps 
sein dürfte. Die Tatsache, daß wir SDATA im Inhaltsverzeichnis 
finden, sagt noch lange nichts darüber aus, ob in SDATA wirklich 
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Datensätze gespeichert wurden. Gehen Sie in den CP/M-Befehlsmodus 
zurück. Sie können B-80 mit dem Befehl SYSTEM verlassen. 

Es gibt in CP/M einen Befehl namens TYPE, mit dem wir uns Dateien 
ansehen können, die ASCII-Daten enthalten: 

A >TYPE SDATA 

Nach dem Drücken der RETURN-Taste sollten Sie folgendes sehen: 

A> TYPE SDATA 
1,12000 
2,13235 
3,15080 
4,14800 

Sie sollten sich nicht wundern, wenn Sie andere Zahlen erhalten. 
Ausgegeben werden können natürlich nur die, die vorher von Ihnen 
eingegeben wurden, über den Ausdruck gibt es noch einiges Bemer¬ 
kenswerte zu sagen. Zuerst haben wir bewiesen, daß die Datei 
ASCII-Daten enthält. Wir hätten sonst nur Unsinn auf den Bild¬ 
schirm bekommen. Zweitens wird sichtbar, daß die einzelnen Varia¬ 
blen durch Kommas getrennt sind (wir haben während des Programm¬ 
laufs keine Kommas eingegeben!). Drittens wird bei Betrachtung 
des Ausdrucks klar, daß jeder Datensatz mit CR und LF (engl. Line 
Feed = Zeilenvorschub) abgeschlossen ist. Wäre das nicht der 
Fall, dann würden alle Zahlen hintereinander stehen. Als die Da¬ 
tei geschrieben wurde, kam offensichtlich folgendes Format zur 
Anwendung: 

WOCHE <,> VERKÄUFE <CRLF> 

B-80 hat <,> und <CRLF> selbständig dazugesetzt. Dies heißt ei¬ 
nerseits, daß B-80 dem Programmierer eine Arbeit abgenommen hat, 
aber andererseits auch, daß Daten in der Datei vorhanden sind, 
die wir nicht unbedingt haben wollten. 

Wir sollten uns auch darüber Gedanken machen, daß jede Stelle 1 
Byte belegt. Die Zahl 123 belegt also 3 Byte, obwohl sie binär 
mit einem Byte darstellbar wäre. Dies führt uns vor Augen, daß 
sequentielle Dateien nicht die effizienteste Art der Datenspei¬ 
cherung darstellen. 
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ÜBUNGEN 

1. Andern Sie das Programm aus Bild 7.3 so, daß es in einem be¬ 
liebigen Monat anfangen kann. Verwenden Sie als Dateinamen ei¬ 
nen Namen mit der Angabe eines Dateityps. 

2. Entwerfen Sie einen Algorithmus für ein Programm, das Namen, 
Adresse, Geburtstag und Telefonnummer von Leuten speichern 
soll, denen Sie Glückwunschkarten schicken wollen. 

3. übersetzen Sie den Algorithmus von Übung 2 in ein Programm. 
Formatieren Sie die Ausgabe so, daß sie gut lesbar ist. 


WIE MAN EINE SEQUENTIELLE DATEI LIEST 

Der TYPE-Befehl zeigte uns, daß tatsächlich Daten in der SDATA- 
Datei gespeichert waren. Wir brauchen aber ein Programm in Basic, 
das diese Datei lesen und ihren Inhalt ausdrucken kann. 


100 REM 10.MAI 1983 PL 

110 ' 

120 REM DIESES PROGRAMM SCHREIBT DIE WÖCHENTLICHEN 

130 REM VERKAUFSZAHLEN IN EIN SEQUENTIELLES DATENFILE 

140 ' 

150 REM BILDSCHIRM LÖSCHEN (SOROC TERMINAL) 

160 ' 

170 LET LOESCH$=CHR$C27)+CHR$(42) 

180 DIM WOCHE(52),X(52) 

190 LET F$=”######,.##" 

200 LET C=0 
210 ' 

220 ' 

230 REM EINGABE 

240 ' 

250 OPEN "I”,#1,"SDATA" 

260 ' 

270 IF EOF(l) THEN _23£ f'^ZO 
280 LET C=C+1 


170 




Sequentielle Dateien 


290 INPUT #1,WOCHE(C),X(C) 

300 GOTO 270 
310 ' 

320 CLOSE #1 
330 ' 

340 REM AUSGABE 

350 ' 

360 PRINT LOESCH$ 

370 ' 

380 PRINT TAB(IO) "WOCHE" TAB(30) "VERKÄUFE" 
390 ' 

400 FOR K=1 TO 40 
410 PRINT 

420 NEXT K 
430 PRINT 
440 PRINT 
450 ' 

460 FOR J=1 TO C 

470 PRINT USING "############";WOCHECJ);' 

480 PRINT TAB(25) ""; 

490 PRINT USING F$;X(J) 

500 NEXT J 
510 ' 

520 REM ENDE 

530 ' 

540 END 


Bild 7.4 Lesen einer sequentiellen Disketten-Datei 


Das Programm in Bild 7.4 beginnt in der üblichen Weise mit der 
Ausnahme, daß wir die beiden Matrizen auf 52 Elemente dimensio¬ 
niert haben. Dies erlaubt es uns, die Daten eines ganzen Jahres 
zu lesen, ohne den Benutzer zu bemühen. Die Datei wird im I-Modus 
eröffnet. Mit Hilfe des für Sie neuen E0F(1)-Befehls in Zeile 270 
wird versucht, das Ende der Datei zu finden. Weil wir nicht wis¬ 
sen, wie viele Datensätze in der Datei enthalten sind, muß uns 
die EOF-Funktion einen Wert liefern, der uns mitteilt, wann das 
Dateiende erreicht ist. B-80 setzt die EOF-Marke automatisch an 
das Ende einer Datei. Die allgemeine Form von EOF sieht folgen¬ 
dermaßen aus: 

EOF(Dateinummer) 
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Die Dateinummer muß wieder mit der im OPEN-Befehl verwendeten 
übereinstimmen. Der Wert von EOF wird nur dann wahr, wenn das Da¬ 
teiende erreicht ist. In diesem Fall wird in Zeile 320 die Datei 
geschlossen. Andernfalls verzweigt das Programm zu Zeile 280. 
Dort wird die Zählvariable C inkremeritiert und als Wochenindex 
verwendet. Diese Schleife läuft bis zum Ende der Datei. 


ÜBUNGEN 

1. Verbessern Sie das Programm aus Bild 7.4 so, daß nach dem An¬ 
zeigen einer Bildschirmseite eine Pause gemacht wird. 

2. Ändern Sie das Grafikprogramm aus Kapitel 6 so, daß es für Da¬ 
ten aus einer Datei verwendbar wird (Hinweis: Benötigen Sie 
weiterhin die DATA/READ-Anweisung?). 


WIE MAN EINE SEQUENTIELLE DATEI ERWEITERT 

Sequentielle Dateien haben einen großen Nachteil: Die 0PEN"0"-An- 
weisung zerstört den Inhalt der Datei. Andersherum ausgedrückt, 
wenn Sie eine existierende Datei um neue Daten erweitern wollen, 
und Sie benutzen ein zweites OPEN "0"-Kommando, dann geht Ihnen 
der Inhalt der Datei für immer verloren. 

Dies läßt sich nur umgehen, indem Sie eine Kopie der Datei her¬ 
steilen, bevor Sie neue Daten hinzufügen. Das Programm in Bild 
7.5 zeigt Ihnen, wie dies zu bewerkstelligen ist. Das Programm 
fragt den Benutzer zuerst, wie viele neue Datensätze zur Datei 
SDATA kommen sollen und übergibt die Antwort der Variablen N. An¬ 
schließend wird SDATA als Eingabedatei und eine zweite Datei als 
Ausgabedatei eröffnet. EOF wird auch hier benutzt, um das Ende 
von SDATA festzustellen. Zunächst wird der Inhalt von SDATA in 
die neue Datei umgeschaufelt. Dann können die neuen Daten hinzu¬ 
kommen. Die Anweisung KILL "SDATA" in Zeile 420 löscht die Datei 
SDATA von der Diskette. Jetzt ist nur noch die neue Datei vorhan¬ 
den. In Zeile 440 wird überprüft, daß die Anzahl der Wochen 52 
nicht übersteigt. Die Variable C enthält die Anzahl der Wochen, 
die von der gelöschten SDATA-Datei herrühren. Die Eingabeschleife 
für die neuen Daten wird nach C+N Durchläufen beendet. Der NAME- 
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Befehl in Zeile 720 weist der neuen Datei den Namen SDATA zu. 
Jetzt haben wir eine neue Datei SDATA auf der Diskette, die so¬ 
wohl die alten als auch die neuen Datensätze enthält. Ein FILES- 
Befehl zeigt uns, daß die Zwischendatei XXXXXX nicht mehr vorhan¬ 
den ist. Der Befehl NAME hat den Namen von XXXXXX in SDATA geän¬ 
dert. Seine allgemeine Form ist wie folgt: 

NAME "alter Dateiname" AS "neuer Dateiname" 

Dieser Befehl ersetzt den alten Dateinamen durch den neuen. So, 
wie wir ihn benutzt haben, entstand damit ein neues SDATA. 

100 REM 10.MAI 1983 PL 

110 ' 

120 REM DIESES PROGRAMM SCHREIBT DIE WÖCHENTLICHEN 

130 REM VERKAUFSZAHLEN IN EINE SEQUENTIELLE DATEI 

140 ' 

150 REM BILDSCHIRM LÖSCHEN (SOROC TERMINAL) 

160 ' 

170 LET LOESCH$=CHR$(27)+CHR$(42) 

180 LET C=0 
190 ' 

200 REM EINGABE 

210 ' 

220 PRINT L0ESCH$ 

230 INPUT;"ANZAHL DER WOCHEN: ",T$ 

240 GOSUB 790 r *6 uvu u*tr »JtA. 

250 IF FLAG=1 THEN 230 
. 260 LET N=VAL(T$) 

270 ' 

280 REM MATRIX DIMENSIONIEREN 

290 ' 

300 DIM WOCHEC52),X(52) 

310 ' 

320 REM ZUERST ALTE DATEN HOLEN 

330 ' 

340 OPEN "I",#l,"SDATA" 

350 OPEN "0",#2,"XXXXXX" 

360 IF EOF(l) THEN 410 
370 LET C=C+1 

380 INPUT #1,WOCHE(C),X(C) 

390 WRITE #2,W0CHE(C),X(C) 

400 GOTO 360 
410 CLOSE #1 
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420 KILL "SDATA" 

430 ' 

440 IF C+N<53 THEN 480 

450 PRINT CHR$(7) "ZU VIELE WOCHEN" 

460 GOTO 700 
470 ' 

480 REM NEUE DATEN HOLEN 

490 ' 

500 PRINT LOESCH$ 

510 ' 

520 FOR J=C+1 TO N+C 

530 PRINT "WOCHENNUMMER "; 

540 PRINT USING 

540 PRINT "= "; 

560 INPUT;"",T$ 

570 GOSUB 790 

580 IF FLAG=1 THEN 530 

590 LET X(J)=VAL(T$) 

600 LET WOCHE(J)=J 

610 PRINT 

620 NEXT J 
630 ' 

640 REM AUSGABE 

650 ' 

660 FOR J=C+1 TO N+C 

670 WRITE #2,WOCHE(J),X(J) 

680 NEXT J 
690 ' 

700 CLOSE #2 
710 ' 

720 NAME "XXXXXX" AS "SDATA" 

730 ' 

740 ' 

750 REM ENDE 

760 ' 

770 END 
780 ' 

790 REM UNTERPROGRAMM FÜR FALSCHE EINGABE ' cvt 

800 ' 

810 LET FLAG=0 
820 ' 

830 FOR K=1 TO LEN(T$) 

840 LET S$=MID$(T$,K,1) 

850 IF S$<"0" THEN FLAG=1 
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860 IF S$>"9" THEN FLAG=1 
870 NEXT K 
880 ' 

890 IF LEN(T$)=0 THEN FLAG=1 

900 IF FLAG=1 THEN PRINT CHR$(7) CHR$(13); 

910 RETURN 


Bild 7.5 Schreiben in eine sequentielle Datei 


Der Dateiname XXXXXX wurde so gewählt, daß kein Konflikt 
mit anderen Dateien auftreten konnte. 

Hätte es bei den Dateinamen eine Übereinstimmung gegeben, so wäre 
der Inhalt einer Datei verlorengegangen. Deshalb muß ein Program¬ 
mierer immer besonders vorsichtig sein, wenn er die OPEN "0 M - An¬ 
weisung und den NAME-Befehl verwendet. Lassen Sie das Programm 
jetzt laufen und vergewissern Sie sich, daß die neuen Daten wirk¬ 
lich in SDATA stehen. 


VOR- UND NACHTEILE SEQUENTIELLER DATEIEN 

Hauptvorteil sequentieller Dateien ist ihre einfache Handhabung. 
Ein paar einfache Befehle erlauben ihre Anwendung. Die Aufzeich¬ 
nungsart ist relativ dicht gepackt. Die Datensätze folgen unmit¬ 
telbar aufeinander. Mit Ausnahme der Trennungszeichen wird kein 
Speicherplatz verschwendet. Obwohl eine sequentielle Aufzeich¬ 
nungsart bereits eine hohe Speicherdichte ergibt, werden wir noch 
sehen, daß die Speicherung im ASCII-Format noch nicht optimal 
ist. 

Der größte Nachteil sequentieller Dateien ist in der langen Zu¬ 
griffszeit auf spezielle Daten zu sehen. Außerdem müssen die Da¬ 
teien immer erst kopiert werden, bevor sie erweitert werden kön¬ 
nen. Dies ist eine Eigenschaft aller sequentiellen Dateien. Die 
Art, wie B-80 sequentielle Dateien verarbeitet, ist besonders um¬ 
ständlich, weil stets die Anweisungen KILL und NAME verwendet 
werden müssen. Hierzu werden wir noch mehr hören, wenn wir die 
anderen möglichen Dateistrukturen diskutiert haben. 
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ÜBUNGEN 

1. Wo, glauben Sie, Mnn man sequentielle Dateien am sinnvollsten 
einsetzen? 

2. Was würden Sie über die Leistungsfähigkeit sequentieller Da¬ 
teistrukturen sagen? Gehen Sie davon aus. Sie hätten ein Pro¬ 
gramm mit sequentiellen Dateien geschrieben, mit dem Sie Ihre 
gefahrenen Kilometer, den Verbrauch Ihres Fahrzeugs und den 
jeweiligen Benzinpreis erfassen. Wie entwickelt sich die Ab¬ 
laufgeschwindigkeit Ihres Programms, wenn die Datenmenge stark 
zunimmt? 

3. Nehmen Sie an. Sie hätten die Namen und Adressen von 100 Per¬ 
sonen in einer sequentiellen Datei. Der Name der 11. Person in 
der Liste sei Maria Johann. Sie haben gerade herausgefunden, 
daß sie geheiratet hat und daß sie jetzt Maria Meier heißt und 
eine neue Adresse hat. Wie würden Sie ihren neuen Namen und 
ihre neue Adresse eingeben, wenn sie die 11. in der Liste 
bleiben soll? 
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WAHLFREIER DATEIZUGRIFF 


Das vorangegangene Kapitel konfrontierte uns mit den zahlreichen 
Einschränkungen sequentieller Dateien. Es wäre schön, eine Datei¬ 
struktur zu haben, die es uns erlaubt, neue Daten in eine Datei 
aufzunehmen, ohne sie erneut lesen zu müssen. Es stünde zu erwar¬ 
ten, daß die Verarbeitungsgeschwindigkeit erheblich ansteigen 
würde, hätten wir wahlfreien Zugriff auf beliebige Datensätze. 
Basic-80 ist in der Lage, Dateien eines solchen Typs zu verwal¬ 
ten. 

DATEIEN MIT WAHLFREIEM ZUGRIFF 

Für viele Anwendungen ist der hohe Zeitbedarf sequentieller Da¬ 
teien nicht tragbar. Die umständliche Art, in der B-80 diese Da¬ 
teien verwaltet, kommt noch hinzu. Es ist deshalb nicht verwun¬ 
derlich, daß die weitaus größte Zahl der Disketten-Dateien anwen¬ 
dender Benutzer Programme auf die Verwendung sequentieller Dateien 
verzichtet. Ein kleines Beispiel soll Ihnen verstehen helfen, wo¬ 
rum es sich bei wahlfrei zugreifbaren Dateien handelt. Eine sol¬ 
che Datei ist eine Ansammlung individuell verschiedener Datensät¬ 
ze. Wir wollen davon ausgehen, daß ein Versicherungsagent eine 
Kundenliste im Rechner aufgebaut hat. Diese Datei hat die Namen 
und Adressen der Kunden zum Inhalt. Jeder Datensatz besteht aus 
dem Vor- und Nachnamen des Kunden, seiner Adresse und der Post¬ 
leitzahl. Jedem Kunden ist ein individueller Datensatz zugeord¬ 
net, der wie eine Karteikarte aufgefaßt werden kann. Wie bei Kar¬ 
teikarten steht auch für den Datensatz nur ein endlich begrenzter 
Platz für Daten zur Verfügung (engl, record = hier Datensatz). 
Für den Programmierer heißt das, daß die zu speichernde Informa¬ 
tion immer den gleichen Umfang an Byte aufweisen muß. Wir spre¬ 
chen hier auch von einem Datensatz mit fester Länge. 

Für den Versicherungsagenten in unserem Beispiel würde die Ver¬ 
wendung sequentieller Technik heißen, daß er seinen Karteikasten, 
von vorne beginnend, bis zur gewünschten Information durchzulesen 
hätte. 

Tatsächlich hat der kluge Mann seinen Karteikasten aber nach den 
Nachnamen seiner Kunden organisiert. Deshalb läuft der Suchvor¬ 
gang deutlich anders ab. Als erstes Suchkriterium fungiert nun 
der Nachname, und es müssen nur noch sehr wenige Karteikarten ge¬ 
lesen werden, bis der Kunde gefunden ist. 


179 


Wahlfreier Dateizugriff 


Exakt in der gleichen Weise sind Dateien mit wahlfreiem Zugriff 
organisiert. Jeder Datensatz erhält eine Ordnungsnummer, unter 
der er jederzeit direkt adressiert werden kann. Die Datensätze 
vor und nach dem uns interessierenden müssen nicht mehr gelesen 
werden. Gehen wir davon aus, daß wir für jeden Kunden 100 Byte 
Speicherplatz benötigen und daß wir die Daten von 300 Kunden 
speichern wollen. Wir benötigen dazu 30000 Byte Speicherplatz. 
Der Versicherungsagent muß nur noch in einer Liste die Ordnungs¬ 
nummer des jeweiligen Kunden suchen und erhält dann postwendend 
den richtigen Datensatz. 

Stark vereinfacht können wir uns vorstellen, daß B-80 in ähnli¬ 
cher Weise vorgeht. Beachten Sie den Vorteil dieser Vorgehenswei¬ 
se. Der Agent ist nicht mehr gezwungen, seinen ganzen Karteika¬ 
sten durchzulesen und damit seine Zeit zu verschwenden. Es dauert 
nicht mehr lange, bis er Zugriff auf bestimmte Daten hat. 

Der wesentliche Nachteil dieser Speichertechnik besteht in der 
Forderung nach festgelegten Datensatzlängen. Nehmen Sie zum Bei¬ 
spiel die beiden Namen Eva Ott und Esmeralda Tatzelwurm-Geröll- 
heimer. Der erste Name belegt nur 7 Byte (den Leerraum zwischen 
Vor- und Nachnamen eingerechnet), während der zweite 33 Byte 
Speicherplatz einnimmt. Da aber alle Datensätze die gleiche Länge 
haben müssen, sind wir gezwungen, bei kürzeren Namen Speicher¬ 
platz zu verschwenden (die Satzlänge muß sich nach dem längsten 
auftretenden Namen richten). 

Die Datensätze von Dateien mit wahlfreiem Zugriff lassen sich in 
mehrere Einzelteile, genannt Felder, aufgliedern. Jedes Feld kann 
den Inhalt einer bestimmten Variablen aufnehmen. Der Programmie¬ 
rer hat die Aufgabe, die Felder entsprechend seiner Problemstel¬ 
lung aufzuteilen. 


DER AUFBAU VON DATENSÄTZEN 

Bevor wir beginnen, ein Programm für diese Dateiart zu schreiben, 
müssen wir uns erst entscheiden, wie der Datensatz auf gebaut sein 
soll. Wir sollten für uns eine Art Bild entwickeln, das die Auf¬ 
teilung des Feldes zeigt. 
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IDENTIFIZIERUNG DER FELDER 

Zuerst sollten wir uns eine Liste der verwendeten Felder machen. 
Für unser Beispiel könnte sie so aussehen: 

1. Name 

2. Straße 

3. Stadt 

4. Bundesland 

5. Postleitzahl 


Danach schauen wir uns jeden Teil der Liste einzeln an. 

1. Name 

Esmeralda hatte mit 33 Buchstaben den längsten Namen. Deshalb muß 
das Namensfeld mindestens 33 Zeichen lang sein. Es ist zwar mög¬ 
lich, daß später jemand mit einem noch längeren Namen Kunde wird, 
hier muß der Programmierer aber einen Kompromiß zwischen dem vor¬ 
handenen Speicherplatz und dem Wunsch, jeden Namen speichern zu 
können, machen. Werbebriefe zeigen fast immer die Eigenheit, Na¬ 
men mit mehr als 30 Zeichen Länge einfach abzuhacken. 30 Zeichen 
Länge für das Namensfeld sollten wirklich ausreichend sein. 

2. Straße 

Hier finden wir dieselbe Problematik vor wie bei den Namen. Wir 
wollen uns hier auf eine Feldlänge von 20 Byte beschränken. 

3. Stadt 

Auch hier kommen wir um einen Kompromiß nicht herum. Wir reser¬ 
vieren ein Feld mit 15 Byte Länge. 

4. Bundesland und 5. Postleitzahl 

Diese beiden Felder sind durch die Art der Daten in der Länge oh¬ 
nehin begrenzt. Wir reservieren 4 Byte für die Postleitzahl und 3 
für das Bundesland. Jetzt können wir darangehen, das Bild für die 
Aufteilung unseres Datensatzes aufzubauen. 
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Feld 

Variablentyp 

Menge 

Bytezahl 

Gesamtbytezahl 

Name 

String 

1 

30 

30 

Adresse 

String 

1 

20 

20 

Stadt 

String 

1 

15 

15 

Bundesland 

String 

1 

3 

3 

Postleitzahl 

String 

1 4 _4 

Datensatzlänge (in Byte): 72 


Tabelle 8.1 Feldaufteilung Kundendatei 

Sie sollten sich angewohnen, grundsätzlich ein solches Bild zu 
erstellen. Es zeigt nicht nur die Aufteilung des Datensatzes, 
sondern es wird auch wertvoller Teil der Programmbeschreibung. 

Es ist wichtig, die einzelnen Felder eines Datensatzes 
für eine Datei mit wahlfreiem Zugriff nach der Worst- 
case-Methode zu dimensionieren. 

Obwohl die Mehrzahl der Leute Namen mit weniger als 20 Zeichen 
Lange hat, mußten wir das Namensfeld 30 Byte groß machen. Würden 
wir in der Datei zu 99% Ganzzahlen verwenden und nur zu 1% ein¬ 
fach genaue, hätten wir dennoch das Feld für einfach genaue Zah¬ 
len zu dimensionieren. Der größte Nachteil dieser Dateiart ist 
sicherlich die Verschwendung von Speicherplatz. Verglichen mit 
den Laufzeitnachteilen sequentieller Dateien fällt dies jedoch 
nicht besonders ins Gewicht. 

ERSTELLEN EINER DATEI MIT WAHLFREIEM ZUGRIFF 

Aus der Tabelle 8.1 wissen wir, daß der Datensatz 72 Byte groß 
sein muß. Alle dort auf geführten Datenfelder beinhalten Zeichen¬ 
ketten. Es spricht deshalb nichts dagegen, sie alle zusammen als 
eine große Zeichenkette zu behandeln. 

ANWEISUNGEN FÜR DATEIEN MIT WAHLFREIEM ZUGRIFF 

Weil sequentielle Dateien und solche mit wahlfreiem Zugriff 
grundlegend verschieden sind, muß B-80 wissen, welche Form wir 
wählen. Deshalb benutzen wir wieder eine OPEN-Anweisung. 

OPEN "R",#Dateinummer,"Dateiname"Datensatzlänge 
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Zwei wesentliche Unterschiede zur sequentiellen OPEN-Anweisung 
können wir finden: 

Der erste Unterschied ist das R in der Anweisung. Das R bedeutet, 
daß auf die Datei wahlfrei zugegriffen werden soll (engl. Random 
= wahlfrei, zufällig). Der zweite Unterschied besteht in der An¬ 
gabe der Datensatzlänge am Ende der Anweisung. Fehlt dieser Zu¬ 
satz, so nimmt B-80 automatisch eine Datensatzlänge von 128 Byte 
an. Unsere Kundendatei soll den Namen ADRESSE erhalten. 

100 OPEN "R",#1,"ADRESSE",72 


DIE FIELD-ANWEISUNG 

Obwohl in der OPEN-Anweisung bereits alle Angaben über den Datei¬ 
typ enthalten sind, weiß B-80 noch nicht, wie die Datensatzlänge 
zugeordnet werden soll. Diese Zuweisung geschieht mittels des 
FIELD-Befehls: 

FIELD #Dateinummer, (Byte) AS (Variable) 

Die Dateinummer muß der in der OPEN-Anweisung verwendeten ent¬ 
sprechen. Außerdem erhält das Feld einen Variablennamen. Für un¬ 
ser Programm sieht das so aus: 

100 FIELD #1,72 AS N$ 

Hier werden alle 72 Byte des Feldes einer einzigen Variablen zu¬ 
geordnet. Es geht aber auch anders: 

100 FIELD #1,30 AS N$,20 AS S$,15 AS ST$,3 AS BL$,4 AS PLZ$ 

Die erste Version ist zwar einfacher, die zweite kann man jedoch 
leichter verstehen. 


B-80 UND DATEIEN MIT WAHLFREIEM ZUGRIFF 

Ein paar Befehle müssen wir noch kennenlernen, bevor wir das Kun¬ 
denkarteiprogramm schreiben können. Außerdem brauchen wir eine 
Vorstellung davon, wie B-80 tatsächlich mit Dateien umgeht. Bis¬ 
her haben wir das nur vereinfacht betrachtet. 
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B-80 reserviert während des Ladevorgangs automatisch Speicher¬ 
platz, der zusammen mit Dateien benutzt wird. Der Platz reicht 
für insgesamt drei Dateien aus. Notieren Sie sich die Größe des 
freien Speicherplatzes, wenn Sie B-80 das nächste Mal laden. B-80 
zeigt Ihnen diesen Wert in seiner ersten Bereitmeldung. Geben Sie 
dann SYSTEM ein und-laden Sie MBASIC erneut wie folgt: 

A>MBASIC /F:5 

Der Zusatz /F:5 teilt B-80 mit, daß wir Speicherplatz für fünf 
Dateien benötigen. Eigentlich überflüssig. Sie zu fragen, was Sie 
gegenüber der ersten Bereitschaftsanzeige an der Angabe des 
freien Speichers bemerkten. 

Der Speicher, der für jede Datei reserviert wird, wird als Datei- 
Pufferspeicher bezeichnet (engl, file buffer). Alle Daten, die 
zwischen B-80 und der Diskette hin und her bewegt werden, laufen 
durch diesen Pufferspeicher. 

Der Befehl OPEN "R",#l,"ADRESSE" reserviert einen Pufferspeicher 
unter der Ordnungsnummer 1 für die Datei mit dem Namen ADRESSE. 
Der FIELD-Befehl ordnet nun diesem Puffer entsprechend seiner 
Vereinbarung die jeweiligen Variablen zu. 

Den Puffer können Sie sich vorstellen wie ein Meßglas mit 72 
Eichstrichen. Jeder Zwischenraum zwischen den Eichstrichen kann 
als Byte aufgefaßt werden. Das erste, kürzere FIELD-Kommando 
teilt den ganzen Inhalt des Glases N$ zu. Die zweite, längere 
FIELD-Anweisung verwendet die ersten 30 Einteilungen für N$, die 
nächsten 20 für S$, die nächsten 15 für ST$ usw. Unabhängig vom 
FIELD-Kommando ist es die Aufgabe des Programmierers, die richti¬ 
gen Daten in das richtige Feld zu bringen. 


LSET UND RSET 

Nehmen wir an, wir hätten das längere FIELD-Kommando benutzt, das 
30 Byte für den Namen reserviert und wir wollten den Namen Eva 
Ott in den Puffer bringen. Außerdem soll der Nachname zuerst kom¬ 
men, dann ein Komma und dann der Vorname. Auf der Diskette soll 
der Name in der Form 0TT,EVA stehen. Eva Ott belegt inklusive des 
Kommas nur 7 Byte. Wir haben aber 30 Byte reserviert. Jedes 
ASCII-Zeichen stellt eine Eichmarke im Meßglas dar. Damit nach 
dem Namen 23 Leerräume stehen, müssen wir ihn ganz nach links 
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schieben. Wir hätten auch die Möglichkeit, den Namen 22 Positio¬ 
nen nach rechts zu schieben. Die Leerräume kämen dann vor dem Na¬ 
men. Diese beiden Möglichkeiten zeigt die folgende Grafik: 

N$ 

.<-30 Zeichen->. 

.OTT,EVA . (linkes Feldende) 

OTT.EVA. (rechtes Feldende) 


LSET N$ RSET N$ 

Jede Zeichenkette kann im Puffer links- oder rechtsbündig stehen. 
Dadurch wird später der formatierte Ausdruck erleichtert. 

LSET 

LSET bewirkt die linksbündige Formatierung einer Puffervariablen. 
Der verbleibende Platz, der durch das FIELD-Kommando reserviert 
wurde, wird mit Leerräumen aufgefüllt. 

RSET 

RSET bewirkt die rechtsbündige Formatierung einer Puffervaria¬ 
blen. B-80 ermittelt in diesem Fall, wie viele Leerräume vor dem 
Namen Platz haben und füllt mit dieser Zahl den Puffer auf. 
Gleichgültig, ob LSET oder RSET Anwendung finden, beträgt die 
Länge des ersten Feldes immer 30 Zeichen. Für das Feld, das die 
Postleitzahl und das Bundesland beinhaltet, produziert LSET und 
RSET immer das gleiche Ergebnis, weil hier keine Leerräume Vor¬ 
kommen . 

PLZ$ 

4 Bytes 


1234 (mit LSET) 

1234 (mit RSET) 

Die Datei wird genauso geschlossen wie eine sequentielle Datei. 
Dazu wird CLOSE #Dateinummer verwendet. 
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EINE BEISPIELDATEI 

Jetzt kennen wir alle Befehle, die wir brauchen, urn eine Datei 
für wahlfreien Zugriff zu erstellen. Wir werden an dem bereits 
begonnenen Beispiel Weiterarbeiten. Dieses Programm ist auch 
nützlich, wenn Sie Adreßaufkleber her stellen wollen. 

Das Programm beginnt wie immer mit der Vereinbarung der Bild¬ 
schirmsteuer-Befehle. In den Zeilen 1130 bis 1220 werden die Ar¬ 
beitsanweisungen an den Benutzer ausgegeben. In den Zeilen 1260 
bis 1650 werden die Eingaben verarbeitet. Wird die RETURN-Taste 
ohne Eingabe gedrückt, erhalt die Variable FLAG den Wert 2 und 
ein Unterprogramm gibt eine Fehlermeldung aus. Anschließend müs¬ 
sen die Daten eingegeben werden. Tritt kein Fehler auf, erhält T$ 
die Daten zugewiesen. In den Zeilen 1690 bis 1740 wird N$ aus den 
einzelnen Zeichenketten zusammengesetzt. Danach wird die Datei 
für wahlfreien Zugriff eröffnet, und der String A$ wird auf eine 
Größe von 72 Byte festgelegt. In Zeile 1800 wird der erste Daten¬ 
satz aus der Datei geholt. 

Der GET-Befehl veranlaßt B-80, den Inhalt eines Daten¬ 
satzes aus der Datei in den Puffer zu holen. 

Läuft das Programm zum erstenmal, so ist der Puffer leer. Die Va¬ 
riable ZAEHLER erhält den numerischen Wert der ersten 10 Zeichen 
von A$. Ist der Puffer leer, dann ist der Inhalt von ZAEHLER = 0. 
In Zeile 1830 erhält die Puffervariable A$ den Inhalt von N$ zu¬ 
gewiesen. 

Benutzen Sie niemals Variablennamen aus dem FIELD-Kom- 
mando anderweitig. Sie müssen sonst damit rechnen, daß 
falsche Daten von der Diskette gelesen oder auf die 
Diskette geschrieben werden. 

Der PUT-Befehl in Zeile 1840 schreibt den Datensatz auf die Dis¬ 
kette. Er sieht allgemein so aus: 

PUT #Dateinummer, Datensatznummer 

Die Dateinummer muß wieder die gleiche sein wie in der OPEN-An- 
weisung. Die Nummer des Datensatzes bestimmt die Position inner¬ 
halb der Datei und stellt eine Ordnungsnummer dar. In unserem 
Beispiel kommt der erste Name in den Datensatz mit der Nummer 2, 
weil die Variable ZAEHLER diesen Wert enthält. Dies geschieht. 
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weil wir den ersten Datensatz dazu benutzen wollen, die Zahl der 
insgesamt gespeicherten Datensätze abzulegen. In Zeile 1850 wird 
der Inhalt von ZAEHLER in einen String umgewandelt und mit A$ in 
den Dateipuffer gebracht. PUT #1,1 schreibt ZAEHLER auf die Dis¬ 
kette (versuchen Sie sich klar zu machen, daß der nächste ge¬ 
schriebene Datensatz automatisch die Nummer 3 erhält). In Zeile 
1880 wird die Datei geschlossen. Anschließend wird die Frage ge¬ 
stellt, ob ein weiterer Name eingegeben werden soll. 

Sie sollten sich mit diesem Programm so lange beschäftigen, bis 
Sie sicher sind, verstanden zu haben, wie es funktioniert. 


1000 REM 10. MAI 1983 
1010 ' 

1020 REM ERSTELLUNG EINER DATEI MIT WAHLFREIEM ZUGRIFF 
1030 REM ZUM SPEICHERN VON NAMEN UND ADRESSEN 
1040 ' 

1050 REM SETZEN DER SCHIRMFUNKTIONEN 
1060 ' 

1070 LET LOESCH$=CHR$(27)+CHR$(42) 

1080 DEF FNC$(X,Y)=CHR$(27)+CHR$(61)+CHR$(X+31)+CHR$(Y+31) 
1090 LET B$=SPACE$(30) 

1100 ' 

1110 REM BESCHREIBEN DES BILDSCHIRMS 
1120 ' 

1130 PRINT L0ESCH$ 

1140 PRINT 
1150 PRINT 
1160 PRINT 

1170 PRINT TAB(5) "VORNAME:."J 

1180 PRINT TAB(31) "NACHNAME:." 

1190 PRINT 

1200 PRINT TAB(5) "STRASSE:.” 

1210 PRINT 

1220 PRINT TAB(5) "STADT:. BUNDESLAND:..." 

"PLZ:...." 

1230 ' 

1240 REM EINGABETEIL 
1250 ' 

1260 PRINT FNC$(4,14); 

1270 INPUT; "",T$ 

1280 IF LEN(T$)=0 THEN FLAG=2: GOSUB 2010: GOTO 1260 
1290 IF LEN(T$)>10 THEN FLAG=1: GOSUB 2010:GOTO 1260 
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1300 LET NVOR$=T$ 

1310 ' 

1320 IF FLAG <> 0 THEN PRINT FNC$(1,40) B$:FLAG=0 
1330 PRINT FNC$(4,42); 

1340 INPUT; "",T$ 

1350 IF LEN (T$)=0 THEN FLAG=2:GOSUB 2010;GOTO 1330 
1360 IF LEN(T$)>20 THEN FLAG=1: GOSUB 2010:GOTO 1330 
1370 LET NNACH$=T$+"," 

1380 ' 

1390 IF FLAG <> 0 THEN PRINT FNC$(1,40) B$:FLAG=0 
1400 PRINT FNC$(6,14); 

1410 INPUT; ”",T$ 

1420 IF LEN (T$)=0 THEN FLAG=2:GOSUB 2010:GOTO 1400 
1430 IF LEN(T$)>20 THEN FLAG=1: GOSUB 2010;GOTO 1400 
1440 LET STRASSE$=T$ 

1450 ' 

1460 IF FLAG <> 0 THEN PRINT FNC$(1,40) B$;FLAG=0 
1470 PRINT FNC$(8,12); 

1480 INPUT; "",T$ 

1490 IF LEN (T$)=0 THEN FLAG=2;GOSUB 2010;GOTO 1470 
1500 IF LEN(T$)>15 THEN FLAG=1: GOSUB 2010:GOTO 1470 
1510 LET STADT$=T$ 

1520 ' 

1530 IF FLAG <>0 THEN PRINT FNC$(1,40) B$:FLAG=0 
1540 PRINT FNC$(8,39); 

1550 INPUT; "" ,T$ 

1560 IF LEN (T$)=0 THEN FLAG=2:GOSUB 2010:GOTO 1540 
1570 IF LEN(T$)<>3 THEN FLAG=3: GOSUB 2010:GOTO 1540 
1580 LET BLD$=T$ 

1590 ' 

1600 IF FLAG <> 0 THEN PRINT FNC$(1,40) B$:FLAG=0 
1610 PRINT FNC$(8,47); 

1620 INPUT; "",T$ 4 

1630 IF LEN (T$)=0 THEN FLAG=2:GOSUB 2010:GOTO 1660 
1640 IF LEN(T$)<>4 THEN FLAG=4; GOSUB 2010;GOTO 16j60 
1650 LET PLZ$=T$ 

1660 ' 

1670 REM ALLES IN EINE ZEICHENKETTE 
1680 ' 

1690 LET NNACH$=NNACH$+NVOR$+MID$(B$ < 1,30-LEN(NNACH$+NVOR$)) 
1700 LET N$=NNACH$ 

1710 LET STRASSE$=STRASSE$+MID$(B$,1,20-LEN(STRASSE$)) 

1720 LET N$=N$+STRASSE$ 

1730 LET STADT$=STADT$+MID$(B$,1,15-LEN(STADT$)) 
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1740 LET N$=N$+STADT$+BLD$+PLZ$ 

1750 ' 

1760 REM AUSGABETEIL 
1770 ' 

1780 OPEN "R",#l,"ADRESSE",72 
1790 FIELD #1,72 AS A$ 

1800 GET #1,1 

1810 LET ZAEHLER=VAL(MID$(A$,1,10)) 

1820 IF ZAEHLER = 0 THEN ZAEHLER=2 ELSE ZAEHLER=ZAEHLER+1 
1830 LSET A$=N$ 

1840 PUT #1,ZAEHLER 

1850 ZAEHLER$=STR$(ZAEHLER) 

1860 LSET A$=ZAEHLER$+B$ 

1870 PUT #1,1 
1880 CLOSE #1 
1890 ' 

1900 REM NOCH EIN DATENSATZ? 

1910 ' 

1920 PRINT 

1930 PRINT FNC$(13,25) "NOCH EIN DATENSATZ (J/N)?"; 

1940 T$=INPUT$(1) 

1950 IF T$="J" THEN 1130 
1960 ' 

1970 REM PROGRAMMENDE 
1980 ' 

1990 END 
2000 ' 

2010 REM FEHLERPRÜFUNTERPROGRAMM 
2020 ' 

2030 IF FLAG=1 THEN PRINT CHR$(7) FNC$(1,50) "ZU LANG” 

2040 IF FLAG=2 THEN PRINT CHR$(7) FNC$(1,50) "KEINE EINGABE" 

2050 IF FLAG=3 THEN PRINT CHR$(7) FNC$(1,50) ”3 BUCHSTABEN!” 

2060 IF FLAG=4 THEN PRINT CHR$(7) FNC$(1,50) "4 ZAHLEN" 

2070 RETURN 


Bild 8.1 Auffüllen einer Datei mit wahlfreiem Zugriff 
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ÜBUNGEN 

1. Ändern Sie das Programm aus Bild 8.1 so, daß es mit mehreren 
Einzelvariablen arbeitet. Was ändert sich an der FIELD-Anwei- 
sung? 

2. Zeichnen Sie sich auf, wie der Dateipuffer für das Programm 
aus Bild 8.1 aussieht. Was würde sich ändern, wenn wir die Da¬ 
tensatzlänge in der OPEN-Anweisung weglassen? 


LESEN EINER DATEI MIT WAHLFREIEM ZUGRIFF 

Das in Bild 8.2 präsentierte Programm zeigt uns eine Möglichkeit, 
wie die zuvor erzeugte Datei ausgelesen werden kann. Zwei Mög¬ 
lichkeiten werden Ihnen angeboten. Sie können einen einzelnen Na¬ 
men suchen (1), oder Sie können den Inhalt der gesamten Datei (2) 
sehen. Geben Sie etwas anderes als 1 oder 2 ein, so müssen Sie 
die Eingabe wiederholen. Die OPEN-Anweisung in Zeile 1280 ist die 
gleiche wie die, die zum Schreiben benutzt wurde. Anders als bei 
sequentiellen Dateien gibt es hier keinen Unterschied zwischen 
Lesen und Schreiben. In Zeile 1310 wird die Anzahl der gespei¬ 
cherten Datensätze von der Diskette geholt und der Variablen 
ZAEHLER zugeordnet. In Zeile 1320 wird entschieden, welche der 
Funktionen benutzt werden soll. Zur Ausgabe der gesamten Datei 
wird die Schleife in den Zeilen 1340 bis 1430 verwendet. Die 
Schleife beginnt mit dem Datensatz Nummer 2 (in Nummer 1 haben 
wir ja die Anzahl der Datensätze abgelegt). In Zeile 1350 holen 
wir den jeweiligen Datensatz aus der Datei, dessen Inhalt mit 
GOSUB 1680 zum Ausdruck kommt. In den Zeilen 1370 bis 1420 wird 
berechnet, wann der Bildschirm vollgeschrieben ist und wir des¬ 
halb die Ausgabe unterbrechen müssen. Nachdem die gesamte Datei 
ausgegeben worden ist, wird sie geschlossen und der Benutzer er¬ 
hält die Möglichkeit, von vorne zu beginnen. 

Haben Sie sich dazu entschieden, nur einen Datensatz anzuschauen, 
so verzweigt das Programm zu Zeile 1500. Nachdem Sie die Ord¬ 
nungszahl des Datensatzes eingegeben haben, wird in Zeile 1530 
der Datensatz geholt und angezeigt. Auch hier wird die Variable 
ZAEHLER um 1 erhöht (Datensatz 1 enthält die Dateigröße!). 
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Nachdem die Kundendaten ausgegeben worden sind, wird die Datei 
geschlossen, und der Benutzer kann von neuem beginnen. 

1000 REM 10. MAI 1983 
1010 ' 

1020 REM LESEN EINER DATEI MIT WAHLFREIEM ZUGRIFF 
1030 REM AUF NAMEN UND ADRESSEN 
1040 ' 

1050 REM SETZEN DER SCHIRMFUNKTIONEN 
1060 ' 

1070 LET LOESCH$=CHR$(27)+CHR$(42) 

1080 DEF FNC$(X,Y)=CHR$(27)+CHR$(61)+CHR$(X+31)+CHR$(Y+31) 
1090 LET B$=SPACE$(25) 

1100 ' 

1110 REM EINGABETEIL 
1120 ' 

1130 PRINT L0ESCH$ 

1140 PRINT "FUNKTIONEN" 

1150 PRINT 

1160 PRINT ”1. DATENSATZ 2. GESAMTAUSDRUCK" 

1170 PRINT 

1180 PRINT "FUNKTION (1/2)? "; 

1190 T$=INPUT$(1) 

1200 IF VAL(T$)=1 THEN 1240 

1210 IF VAL(T$)=2 THEN 1240 

1220 PRINT CHR$(7) CHR$(13); : GOTO 1180 

1230 ' 

1240 REM AUSGABETEIL 
1250 ' 

1260 PRINT LOESCH$ 

1270 ' 

1280 OPEN "R",#l,"ADRESSE",72 
1290 FIELD #1,72 AS A$ 

1300 GET #1,1 

1310 LET ZAEHLER=VAL(MID$(A$,1,10)) 

1320 IF T$="l" THEN 1500 
1330 ' 

1340 FOR J=2 TO ZAEHLER 
1350 GET #1,J 

1360 GOSUB 1680 

1370 LET L=L+5 

1380 IF L<22 THEN 1430 

1390 PRINT "WEITER --> DRÜCKEN SIE EINE TASTE"; 

1400 T$=INPUT$(1) 
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1410 PRINT CHR$(13) B$ CHR$(13); 

1420 LET L=0 

1430 NEXT J 
1440 CLOSE #1 

1450 PRINT "FERTIG, WEITER —> DRUCKEN SIE EINE TASTE"; 

1460 T$=INPUT$(1) 

1470 PRINT LOESCH$ 

1480 GOTO 1570 
1490 ' 

1500 PRINT 

1510 INPUT; "ORNUNGSNUMMER DES DATENSATZES; ",N 
1520 PRINT CHR$(13); 

1530 GET #1,N+1 
1540 GOSUB 1680 
1550 CLOSE #1 
1560 ' 

1570 REM NOCH EIN DATENSATZ? 

1580 ' 

1590 PRINT 

1600 PRINT FNC$(1,45) "NOCH EIN DATENSATZ (J/N)? M ; 

1610 T$=INPUT$(1) 

1620 IF T$="J" THEN 1130 
1630 ' 

1640 REM PROGRAMMENDE 
1650 ' 

1660 END 
1670 ' 

1680 REM AUSGABEUNTERPROGRAMM 
1690 ' 

1700 PRINT LEFT$(A$,30) 

1710 PRINT MID$(A$,31,20) 

1720 PRINT MID$(A$,51,15) " " MID$(A$,66,2) ” " MID$(A$,68) 

1730 PRINT 
1740 RETURN 


Bild 8,2 Lesen einer Datei mit wahlfreiem Zugriff 


192 


Wahlfreier Dateizugriff 


ÜBUNGEN 

1. Ein Versicherungsagent (und höchstwahrscheinlich auch alle an¬ 
deren Leute, die solche Dateien benutzen) wird sicherlich zu¬ 
sätzliche Informationen speichern wollen. Das Geburtsdatum, 
der Name des Ehepartners und die Art der Versicherung sind si¬ 
cher nur einige Beispiele. Entwickeln Sie einen Algorithmus 
auf der Basis des Programms in Bild 8.1, der die zusätzlichen 
Informationen berücksichtigt. 

2. Schreiben Sie das Programm zum Algorithmus von 1. 

3. Entwickeln Sie einen Algorithmus, mit dem Sie die unter 2. er¬ 
zeugte Datei lesen können. 

4. Schreiben Sie das Programm zu 3. 


ZAHLEN IN DATEIEN MIT WAHLFREIEM ZUGRIFF 

Alle Daten, die wir im Kundenlistenprogramm bisher gespeichert 
haben, waren Zeichenketten. Offensichtlich gibt es aber viele 
Fälle, in denen wir auch Zahlen abspeichern müssen. Das Problem 
hierbei stellt die FIELD-Anweisung dar, die nur Strings zuordnen 
kann. Deshalb benötigen wir eine Reihe zusätzlicher Anweisungen, 
die Zahlen in Zeichenketten umwandeln, und zwar so, daß sie in 
den Puffer geschrieben werden können. 

Wie Sie sich sicher noch erinnern, gibt es in B-80 drei verschie¬ 
dene Zahlenarten. Jede Zahlenart hat einen unterschiedlichen 
Platz bedarf. Das FIELD-Kommando muß dies bei der Reservierung des 
Speicherplatzes berücksichtigen (zur Erinnerung: Ganzzahlen bele¬ 
gen 2 Byte, einfach genaue 4 und doppelt genaue 8). Zusammenge¬ 
faßt heißt das, wir müssen ausreichend Platz reservieren und wir 
müssen die jeweilige Zahl in eine Zeichenkette umwandeln. 
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MKI$ 

Diese Anweisung wandelt eine Ganzzahl in eine Zeichenkette um, 
und weist diese gleichzeitig einer Puffervariablen zu. Sie wird 
folgendermaßen angewendet (allgemein): 

FIELD #Dateinummer,2 AS Puffervariable 
MKI$(Variablenname der Ganzzahl) 


Mit G als Ganzzahl und G$ als Puffervariable schreiben wir: 


100 FIELD #1,2 AS G$ 
110 LSET G$=MKI$(G) 


FIELD reserviert 2 Byte für die Puffervariable G$. MKI$ wandelt G 
in die Zeichen kette G$ um und wird gleichzeitig mit LSET links¬ 
bündig formatiert. 

Die Anweisungen für einfach und doppelt genaue Zahlen sehen sinn¬ 
gemäß genauso aus, mit der Ausnahme, daß mehr Speicherplatz re¬ 
serviert werden muß. 

MKS$ 

Der MKS$-Befehl wandelt Zahlen einfacher Genauigkeit in eine Zei¬ 
chenkette um. Er wird genauso angewendet wie der vorher beschrie¬ 
bene Befehl MKI$. Der einzige Unterschied besteht darin, daß an¬ 
stelle von 2 Byte deren 4 reserviert werden müssen. 


100 FIELD #1,4 AS E$ 
110 LSET E$=MKS$(E) 


MKD$ 

Die MKD$-Anweisung wandelt doppelt genaue Zahlen in eine Zeichen¬ 
kette um. Für doppelt genaue Zahlen müssen 8 Byte im Puffer re¬ 
serviert werden. 
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100 FIELD #1,8 AS D$ 
110 LSET D$=MKD$(D) 


Mit diesen drei Befehlen können wir aus jeder numerischen Varia¬ 
blen eine Zeichenkette machen. Diese Zeichenkette kann mit LSET 
in den Puffer geschrieben werden und von dort aus mit PUT auf die 
Diskette. 

BEISPIELPROGRAMM FÜR DIE VERWENDUNG VON ZAHLEN 

In Bild 8.3 sehen Sie ein einfaches Beispielprogramm, mit dem 
Zahlen in der ersten, zweiten und dritten Potenz in einer Datei 
gespeichert werden. 

Die Ausgangszahl in der 1. Potenz wird jeweils als Ganzzahl ver¬ 
arbeitet, das Quadrat der Zahl als einfach genaue Zahl und die 
dritte Potenz als doppelt genaue Zahl. Wir müssen deshalb für je¬ 
den Dateisatz 14 Byte im Puffer bereitstellen (2 für die Ganz¬ 
zahl, 4 für die einfach genaue und 8 für die doppelt genaue 
Zahl). Diese Vereinbarung finden Sie am Ende der OPEN-Anweisung 
in Zeile 160. 

Der FIELD-Befehl in der nächsten Zeile verteilt die gewählte Ge¬ 
samtlänge auf die einzelnen Variablen. Innerhalb einer Schleife 
werden die Zahlen erzeugt, wobei der Schleifenzähler gleichzeitig 
als Variable dient. In den Zeilen 250 bis 270 findet die Umwand¬ 
lung in Zeichenketten statt. LSET schaufelt diese in den Puffer 
um, von wo aus sie dann in Zeile 280 auf die Diskette geschrieben 
werden. Danach wird die Disketten-Datei geschlossen und das Pro¬ 
gramm beendet. 

100 REM 12. MAI 83 

110 REM DIESES PROGRAMM SCHREIBT ZAHLEN VERSCHIEDENER GENAU- 
120 REM IGKEIT IN EINE DATEI MIT WAHLFREIEM ZUGRIFF 
130 ' 

140 REM ÖFFNEN DER DATEI 
150 ' 

160 OPEN "R",#1,"ZAHLEN",14 

170 FIELD #1,2 AS I$,4 AS S$,8 AS D$ 

180 ' 

190 REM SCHLEIFE MIT DER ORDNUNGSNUMMER 
200 ' 
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210 FOR J=1 TO 20 
220 LET I=J 

230 LET S=J*J 

240 LET D=J*J*J 

250 LSET I$=MKI$(I) 

260 LSET S$=MKS$(S) 

270 LSET D$+MKD$(D) 

280 PUT #1,J 

290 NEXT J 
300 ' 

310 CLOSE #1 
320 ' 

330 END 

Bild 8.3 Schreiben von Zahlen in eine Datei mit wahlfreiem Zu¬ 
griff 

LESEN EINER NUMERISCHEN DATEI MIT WAHLFREIEM ZUGRIFF 

Lesen wir die soeben erzeugte Datei zurück, so erhalten wir im 
Puffer natürlich Strings. Um damit etwas anfangen zu können, müs¬ 
sen wir die Zeichenketten in numerische Variablen zurückverwan¬ 
deln. Wir brauchen also Umkehrfunktionen. 

CVI 

Diese Anweisung holt sich 2 Byte aus dem Dateipuffer und wandelt 
diese beiden Zeichen in eine Ganzzahl um. Sie wird wie folgt an¬ 
gewendet : 

Ganzzahlvariable = CVI ( Stringvariable) 

Die Stringvariable ist diejenige, welche innerhalb der FIELD-An- 
weisung verwendet wurde. Als Beispiel: 


100 G=CVI(G$) 


CVS 

CVS entspricht der CVI-Anweisung, mit dem Unterschied, daß eine 
Zeichenkette von 4 Byte Länge in eine einfach genaue Zahl umge¬ 
wandelt wird. 
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CVD 

Diese Anweisung konvertiert eine Zeichenkette mit 8 Byte Länge in 
eine doppelt genaue Zahl. Sie wird wie CVI und CVS angewendet. 


Alle drei Befehle werden mit einer numerischen Zuweisungsvaria¬ 
blen verwendet. Jetzt sind wir soweit, uns mit dem Lesen der nu¬ 
merischen Datei zu befassen. Das Programm dazu zeigt Bild 8.4 

100 REM 3. MAI 1983 

110 REM ZURÜCKLESEN DER ZAHLENREIHE 

120 REM AUS DER WAHLFREI ZUGREIFBAREN DATEI 

130 ' 

140 REM FORMATIERTER AUSDRUCK 
150 ' 

160 LET F$="##############" 

170 ' 

180 REM ÖFFNEN DER DATEI 
190 ' 

200 OPEN "R",#1,"ZAHLEN",14 

210 FIELD #1,2 AS I$,4 AS S$,8 AS D$ 

220 ' 

230 REM LESESCHLEIFE 
240 ' 

250 PRINT TAB(8) "GANZZAHL" TAB(23) "EINFACH GENAU" TABC40) 
"DOPPELT GENAU" 

260 PRINT 
270 FOR J=1 TO 20 
280 GET #1,J 

290 LET I=CVI(I$) 

300 LET S=CVS(S$) 

310 LET D=CVD(D$) 

320 PRINT USING F$;I;S;D 

330 NEXT J 
340 ' 

350 CLOSE #1 
360 ' 

370 END 

Bild 8.4 Auslesen von Zahlen aus einer Datei mit wahlfr. Zugriff 


Dieses Programm kann Dateien lesen, die mit dem Programm aus Bild 
8.3 erzeugt wurden. In Zeile 160 wird F$ zum formatierten Drucken 
vorbereitet. In den Zeilen 200 und 210 finden Sie die OPEN- und 
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FIELD-Befehle. In Zeile 250 wird eine Überschrift ausgedruckt. 
Innerhalb einer Schleife (270 bis 330) werden die Datensätze von 
der Diskette geholt. Die Umwandlung der Variablen geschieht in 
den Zeilen 290 bis 310. In Zeile 320 kommen die Zahlen schließ¬ 
lich zum Ausdruck. 

Die eben besprochenen Konvertierungsanweisungen sind nicht in je¬ 
dem Basic-Dialekt implementiert. Sie können, wenn der Programmie¬ 
rer sie richtig anwendet, sehr viel Speicherplatz sparen helfen. 

VOR- UND NACHTEILE VON DATEIEN MIT WAHLFREIEM ZUGRIFF 

Diese Dateiart hat viele Vorteile. Sie erlaubt den schnellen Zu¬ 
griff auf alle gespeicherten Datensätze, und es ist sehr leicht, 
einen Datensatz zu ändern und auf dieselbe Stelle der Diskette 
zurück zu schreiben. NAME und KILL müssen nicht verwendet werden. 
Neue Datensätze können auf einfachste Art hinzugefügt werden, 
wenn der Programmierer weiß, wie viele Datensätze er schon ge¬ 
speichert hatte. All dies läßt sich mit sequentiellen Dateien 
nicht realisieren. 

Aber da sind auch einige Nachteile. Wir müssen ein paar Befehle 
mehr wissen und wir können nur festgelegte Datensatzlängen ein- 
setzen. Dies wiegt nicht sehr schwer, wenn wir auf der anderen 
Seite sehen, was wir zum Beispiel an Verarbeitungsgeschwindigkeit 
gewinnen. Schlimmer ist es, daß wir gelegentlich gezwungen sind, 
beachtliche Mengen Speicherplatz ungenutzt zu lassen. Dies 
schlägt bei ASCII-Dateien am meisten zu Buch. In unserem Kunden¬ 
listenbeispiel werden im Durchschnitt etwa 40% des Speicherplat¬ 
zes verschwendet. Aber auch dies ist meist nicht so schlimm. Zeit 
ist immer noch viel teurer als Disketten! 

Deshalb sind sequentielle Dateien aber nicht nutzlos. In Fällen, 
in denen kleinere Dateien nicht mehr verändert oder erweitert 
werden sollen, stellt die sequentielle Technik eine durchaus gute 
Lösung dar. 

Blieben noch die Grauzonen zu diskutieren, wo nur sehr wenige Än¬ 
derungen gemacht werden und wo nur selten Daten hinzukommen, aber 
andererseits oft der Wunsch besteht, die Eigenschaften beider 
Speichertechniken zu verbinden, um ihre Vorteile zu vereinen. Für 
all diese Fälle eignet sich eine Technik, die im Englischen als 
Skip-sequential-Technik bezeichnet wird. Sie stellt eine Kombina¬ 
tion der beiden bisher kennengelernten Speichertechniken dar. 
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ÜBUNGEN 

1. Entwickeln Sie einen Algorithmus für ein Programm, das die wö¬ 
chentlichen Verkaufszahlen ihres Betriebs in eine wahlfrei zu¬ 
greifbaren Datei abspeichert. Jeder Datensatz soll aus einer 
Nummer für die Woche und dem jeweiligen Umsatz bestehen. Der 
erste Datensatz soll die Anzahl der gespeicherten Sätze bein¬ 
halten. Welche Zahlenart verwenden Sie und warum? 

2. Schreiben Sie das Programm zu 1. 

3. Ändern Sie das Grafikprogramm so, daß es wahlfrei zugreifbare 
Dateien verwenden kann. 

4. Nehmen Sie an, eine Datei enthielte die Daten für jeweils fünf 
Meßwerte, die insgesamt lOOmal vorliegen. Basierend auf dieser 
Information sollen Sie herausfinden, was das folgende Programm 
tut. 

100 LET Z$="DATA M 
110 LET Q=4 
120 DEFINT J,K 


200 REM HOLE DIE DATEN 
210 OPEN "R",#2,Z$,Q 
220 FIELD #2,Q AS T$ 

230 ' 

240 FOR J=1 TO 100 

250 FOR K=1 TO 5 

260 GET #2,K+(5*(J-1)) 

270 IF Q=4 THEN X(K)=CVS(T$) ELSE X(K)=CVD(T$) 

280 NEXT K 
290 NEXT J 
300 ' 

310 CLOSE #2 

Wie könnte Zeile 260 außerhalb der Schleife sinnvoll einge¬ 
setzt werden? Wie beeinflußt Q die Flexibilität des Programms? 
Wozu dient Zeile 120? 
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SKIP-SEQUENTIAL - WAS IST DAS? 


In den letzten beiden Kapiteln konnten wir sehen, daß sequentiel¬ 
le Dateien den Speicherplatz sehr gut ausnutzen, aber nur relativ 
niedrige Verarbeitungsgeschwindigkeiten erlauben. Wahlfrei zu¬ 
greifbare Dateien hingegen erlauben einen schnellen Zugriff auf 
die gespeicherten Daten. 

Es lag daher nahe, eine Kombination beider Techniken zu entwik- 
keln, die die Vorteile vereint und die Nachteile so klein wie 
möglich hält. Diese Idee ist beileibe nicht neu. Großrechenanla¬ 
gen wenden diese Technik schon seit geraumer Zeit sehr erfolg¬ 
reich an. Es blieb aber dem Autor überlassen, die Skip-sequen- 
tial-Technik auf Mikrocomputer anzuwenden. 

Skip-sequential kommt aus dem Englischen und läßt sich am besten 
mit "überspringen einer sequentiellen Struktur" übersetzen. Für 
die Verwendung im Text ist dies jedoch zu umständlich, weshalb 
ich diesen Begriff in Zukunft mit "ss" abkürzen werde. 

Dateien, die mit Hilfe der ss-Methode erstellt werden, nutzen den 
Speicherplatz sehr gut aus und erlauben trotzdem ein schnelles 
Zugreifen auf einzelne Datensätze. Änderungen können ausgeführt 
werden, ohne jedesmal die ganze Datei zu lesen. Dateien dieser 
Art können auf die Anwendung der NAME- und KILL-Kommandos ver¬ 
zichten. Nur das Erweitern einer Datei ist nicht mehr ganz so 
einfach wie bei der wahlfrei zugreifbaren Technik. Dafür können 
ss-Dateien mit variabler Datensatzlänge arbeiten. All diese Dinge 
erhalten wir für etwas mehr Aufwand bei der Programmierung gra¬ 
tis. 


DIE ANWENDUNG VON SS-DATEIEN 

Lehrer verleihen so gut wie immer Bücher an ihre Studenten. Im¬ 
mer, wenn sich einer meiner Studenten ein Buch auslieh, notierte 
ich gewissenhaft auf einem Blatt Papier Datum und Namen. Mit 
schöner Regelmäßigkeit verlor ich dieses Papier schon nach eini¬ 
gen Tagen. Deshalb überlegte ich mir ein Programm, mit dem ich 
diese Aufzeichnungen speichern könnte. Wir wollen es als Beispiel 
für die Anwendung einer ss-Datei verwenden. 
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Folgende Daten sind dafür zu speichern: 

(1) Das Ausleihdatum 

(2) den Buchtitel, die Nummer der Ausgabe und ähnliches 

(3) den Namen der oder des Ausleihenden 

(4) eine Variable, die angibt, ob das Buch noch verliehen ist 

Die Variable von Punkt 4 soll 1 sein, wenn das Buch noch verlie¬ 
hen ist. Offensichtlich werden wir diese Datei laufend ändern 
müssen. 

Unter diesem Gesichtspunkt wäre die Verwendung einer wahlfrei zu¬ 
greifbaren Datei angezeigt. Die Aufteilung des Dateipuffers könn¬ 
te aussehen, wie dies in Tabelle 9.1 dargestellt ist. Danach wäre 
eine Datensatzlänge von 86 Byte unumgänglich. Würde ich nun an 
Eva Ott ein Buch verleihen, dessen Titel 11 Zeichen Umfang be¬ 
sitzt, so wären nur 18 Byte der Puffervariablen wirklich ausge¬ 
nutzt. Wir würden also rund 75% des Speicherplatzes verschwenden. 

Untersuchen wir deshalb die Möglichkeiten einer ss-Datei. Grund¬ 
sätzlich handelt es sich dabei um wahlfrei zugreifbare Dateien, 
die einen Datensatz Zähler enthalten. Die Datensatzlänge ist aber 
etwas ungewöhnlich. 

Eine ss-Datei besitzt eine Datensatzlänge, die gleich der 
Länge der größten zu speichernden numerischen Variablen ist. 

Es ist deshalb immer die erste Aufgabe, wenn eine solche Datei 
aufgebaut werden soll, zu ermitteln, welche numerischen Dateien 
verarbeitet werden sollen. Zusätzlich muß der Datensatzzähler un¬ 
tergebracht werden. Deshalb müßte in Tabelle 9.1 von drei numeri¬ 
schen Variablen ausgegangen werden. 


Feld 

Variablen Typ 

Menge 

Byte 

Byte gesamt 

Datum 

Einfache Genauigkeit 

1 

4 

4 

Titel 

Zeichenkette 

1 

50 

50 

Name 

Zeichenkette 

1 

30 

30 

FLAG 

Ganzzahl 

1 

2 

2 


Byte gesamt: 86 


Tabelle 9.1 
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DIE MINIMAL MÖGLICHE DATENSATZLÄNGE 

Damit in der Datei ein Datensatz Zähler enthalten sein kann, muß 
die kleinste zu verarbeitende Zahlenart eine Ganzzahl sein. Da¬ 
durch ist es möglich, bis zu 32767 Datensätze zu bearbeiten (wis¬ 
sen Sie noch, warum?). Weil meine Bibliothek wesentlich weniger 
Bände enthält, können wir problemlos mit einer Ganzzahl arbeiten. 

Wir müssen außerdem das Verleihdatum speichern. Nähmen wir hierzu 
eine Zeichenkette, so läge der Platzbedarf bei 6 Byte. Nehmen wir 
jedoch eine einfach genaue Zahl, kommen wir mit 4 Byte aus. Die 
"binäre" Variable, die uns angibt, ob das Buch noch verliehen 
ist, stellt kein Problem dar. Sie kann ohnehin nur die Werte 0 
und 1 annehmen. Für sie könnten wir auch einen String verwenden. 
Eine Zusammenfassung der bisherigen Betrachtungen finden Sie in 
der nächsten Tabelle. 


Variable 

möglicher Variablentyp 

Satzzähler 

Daten 

FLAG 

Ganzzahl, einfach oder doppelt genau 
einfach oder doppelt genau 

Ganzzahl, einfach oder doppelt genau 


Tabelle 9.2 


INITIALISIERUNG DES DATENSATZZAHLERS 


Erste Aktion innerhalb eines Programms, das ss-Dateien benutzt, 
ist immer die Initialisierung des Datensatz Zählers. Das heißt, 
dem Zähler muß ein Anfangswert zugewiesen werden. 

Unser Programm soll den Namen BUCH erhalten. Das kurze Programm 
in Bild 9.1 eröffnet die Datei BUCH mit einer festen Länge von 4 
Byte für den Datensatz. Da der Datensatz Zähler einen eigenen Satz 
belegt, erhält die Variable ZAEHLER den Wert 1 als Startwert. In 
Zeile 170 wird ZAEHLER in den Puffer gebracht, von wo aus er mit 
dem PUT-Kommando aus 180 auf die Diskette geschrieben wird. An¬ 
schließend wird die Datei geschlossen. Die Initialisierung ist 
abgeschlossen, die Datei BUCH kann benutzt werden. 
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100 REM 14. MAI 83 

110 REM DIESES PROGRAMM INITIALISIERT DEN SATZZAEHLER FÜR 
120 REM DIE SKIP-SEQUENTIAL-DATEI 
130 ' 

140 OPEN "R",#1,"BUCH",4 
150 FIELD #1,4 AS Y$ 

160 LET ZAEHLER=1 

170 LSET Y$=MKS$(ZAEHLER) 

180 PUT #1,1 
190 ' 

200 CLOSE #1 
210 ' 

220 END 


Bild 9.1 Initialisierung des Satzzählers 


Ein Programm, mit dem Daten in die Datei gebracht werden können, 
zeigt Bild 9.2. Damit das Programm überschaubar bleibt, wurde auf 
Fehlerüberprüfungen verzichtet. 

100 REM 14. MAI 1983 

110 REM DIES IST DAS BIBLIOTHEKSPROGRAMM 

120 REM ES SPEICHERT AUSGELIEHENE BÜCHER IN EINER SS-DATEI 

130 ' 

140 REM SETZEN DER SCHIRMFUNKTIONEN 
150 ' 

160 LET LOESCH$=CHR$(27) + CHR$(42) 

170 LET Q=4 
180 LET FLAG=1 
190 ' 

200 REM ANZAHL DER DATENSÄTZE ? 

210 ' 

220 OPEN "R",#l,"BUCH",Q 
230 FIELD #1,Q AS Y$ 

240 GET #1,1 

250 LET ZAEHLER=CVS(Y$) 

260 ' 

270 REM EINGABETEIL 
280 ' 

290 PRINT LOESCH$ 

300 INPUT; "DATUM (TTMMJJ): ",T$ 

310 IF LEN(T$)<>6 THEN PRINT CHR$(7) CHR$(13);:GOTO 300 
320 LET DATUM=VAL(T$) 

330 PRINT 
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340 ' 

350 PRINT 

360 INPUT;"BUCHTITEL: ";BUCH$ 

370 LET B=LEN(BUCH$) 

380 PRINT 
390 ' 

400 PRINT 

410 INPUT;"NAME DES ENTLEIHERS: ";N$ 

420 LET N=LEN(N$) 

430 ' 

440 REM AUSGABETEIL 
450 ' 

460 LET ZAEHLER=ZAEHLER+1 
470 LSET Y$=MKS$(DATUM) 

480 PUT #1,ZAEHLER 
490 ' 

500 REM AUFTEILEN DES BUCHTITELS 
510 ' 

520 IF B/Q <> INTCB/Q) THEN X=INT(B/Q)+1 ELSE X=INT(B/Q) 
530 LET ZAEHLER=ZAEHLER+1 
540 LSET Y$=MKS$(X) 

550 PUT #1,ZAEHLER 
560 ' 

570 FOR J=1 TO X 

580 LSET Y$=MID$(BUCH$,Q#J-(Q~1),Q) 

590 LET ZAEHLER=ZAEHLER+1 

600 PUT #1,ZAEHLER 

610 NEXT J 
620 ' 

630 REM AUFTEILEN DES ENTLEIHERNAMENS 
640 ' 

650 IF N/Q <> INTCN/Q) THEN X=INT(N/Q)+1 ELSE X=INT(N/Q) 
660 LET ZAEHLER=ZAEHLER+1 
670 LSET Y$=MKS$(X) 

680 PUT #1,ZAEHLER 
690 ' 

700 FOR J=1 TO X 

710 LSET Y$=MID$(N$,Q*J-(Q-1),Q) 

720 LET ZAEHLER=ZAEHLER +1 

730 PUT #1,ZAEHLER 

740 NEXT J 
750 ' 

760 REM FLAG SETZEN 
770 ' 
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780 LSET Y$=MKS$(FLAG) 

790 LET ZAEHLER=ZAEHLER+1 
800 PUT #1,ZAEHLER 
810 ' 

820 REM SATZZAEHLER SETZEN 
830 ' 

840 LSET Y$=MKS$(ZAEHLER) 
850 PUT #1,1 
860 CLOSE #1 
870 ' 

880 REM PROGRAMMENDE 
890 ' 

900 END 


Bild 9.2 

In den Zeilen 160 bis 180 werden mehrere Variablen initialisiert, 
die wir während des Programms benötigen. Die Variable Q enthält 
die Datensatzlänge. In Zeile 220 wird die Datei BUCH geöffnet und 
anschließend in Zeile 230 werden die Felder zugewiesen. In Zeile 
240 wird der erste Datensatz der Datei geholt. Er enthält den 
Satzzähler. Die Umwandlung von Stringdaten in numerische ge¬ 
schieht in Zeile 250. 

Weil sich in der Datei noch keine Daten befinden, enthält die Va¬ 
riable ZAEHLER den Wert 1. Jetzt wird der Schirm gelöscht und die 
Frage nach dem Datum wird gestellt. In Zeile 310 findet eine ein¬ 
fache Fehlerüberprüfung statt. Der Name des Ausleihenden wird in 
Zeile 410 verlangt. In Zeile 420 wird die Anzahl der Zeichen des 
Namens ermittelt. Zeile 460 steht am Anfang der Ausgabe. Hier 
werden die Datensätze auf der Diskette abgelegt. PUT in Zeile 480 
erledigt diese Aufgabe. Um zu verstehen, wie das funktioniert, 
wollen wir einen Ablauf durchspielen. Wir benutzen dazu den Buch¬ 
titel "Nachtprobe", der von Otto Ott ausgeliehen wird (BUCH$= 
"NACHTPROBE", N$="OTTO OTT"). Der Buchtitel ist 11 Zeichen lang. 
Damit wir eine Datensatzlänge von 4 Byte verwenden können, müßten 
wir also 11/4 = 2.75 Datensätze verwenden. Leider läßt B-80 keine 
nichtganzen Satzlängen zu. Deshalb wird in Zeile 520 die kleinst- 
mögliche Anzahl ganzer Datensätze errechnet, die wir schreiben 
müssen. Wie das gemacht wird, sehen Sie im folgenden. 

Es gilt: B/Q=2.75 und INT(B/Q)=2 . Damit wird die IF/THEN-Bedin- 
gung in Zeile 520 wahr, weshalb X den Wert 3 erhält. Das bedeu¬ 
tet, daß wir drei Datensätze benötigen, um die Information zu 
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speichern. Gegenüber 50 Byte bei einer wahlfrei zugreifbaren Da¬ 
tei eine spürbare Ersparnis! In den Zeilen 570 bis 610 steht eine 
Schleife, mit der die Daten auf die Diskette geschrieben werden. 

Die MID$-Anweisung in Zeile 580 sorgt dafür, daß jeweils vier 
Zeichen in einen Datensatz gelangen. Beim ersten Durchlauf sind 
dies die Zeichen "NACH", beim zweiten "TPRO" und beim dritten 
"BE”. Abhängig vom Wert von J wollen wir uns die Wirkung von MID$ 
nocheinmal ansehen: 


J=1 MID$(BUCH$,1,4)="NACH M => Satznummer 4 

J=2 MID$(BUCH$,5,4)="TPR0" => Satznummer 5 

J=3 MID$(BUCH$,9,4)="BE " => Satznummer 6 

Wenn wir alle drei Datensätze aneinanderreihen, erhalten wir den 
Buchtitel "Machtprobe". Der zusätzliche Leerraum entsteht, weil 
wir drei vollständige Sätze schreiben müssen. Der ganze Vorgang 
wird für den Namen nochmals wiederholt. Die benutzte Logik ist 
völlig gleich. Hierfür sind die Zeilen 650 bis 740 zuständig. In 
Zeile 780 wird der Inhalt von FLAG als Merker für das Ausleihen 
des Buches in den Puffer gebracht. Die nächsten zwei Zeilen in- 
krementieren den Satzzähler und schreiben den Merker auf die Dis¬ 
kette. In der Zeile 850 wird der Satzzähler auf den neuesten 
Stand gebracht und die Datei geschlossen. Damit ist ein Durchlauf 
abgeschlossen. Wenn wir die Sequenz ein zweites Mal durchlaufen, 
dann steht in ZAEHLER der Wert 10. Dadurch können wir neue Daten 
in die Datei aufnehmen, ohne alte zu überschreiben. 

Wir haben gerade gesehen, daß es möglich ist, die gleiche Infor¬ 
mation, die bei der Anwendung einer wahlfrei zugreifbaren Datei 
86 Byte belegt hätte, in 36 Byte unterzubringen. Eine Platzer¬ 
sparnis von etwa 58 %\\\ 


DAS LESEN VON SS-DATEIEN 

In Bild 9.3 wird Ihnen ein Programm vorgestellt, mit dem die Da¬ 
ten aus der Datei BUCH zurückgeholt werden können. Auch hier wur¬ 
de wieder zugunsten der Übersichtlichkeit auf Fehler über prüf ungen 
verzichtet. 
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100 REM 15. MAI 83 

110 REM LESEN DES AUSLEIHVERZEICHNISSES 
120 ' 

130 ' 

140 REM SETZEN DER SCHIRMFUNKTIONEN 
150 ' 

160 LET LOESCH$=CHR$(27)+CHR$(42) 

170 LET Q=4 

180 LET START=2 

190 DEFINT J 
200 LET L=0 
210 ' 

220 REM ANZAHL DER DATENSÄTZE 
230 ' 

240 OPEN "R”,#1,"BUCH",Q 
250 FIELD #1,Q AS Y$ 

260 GET #1.1 

270 LET ZAEHLER=CVS(Y$) 

280 ' 

290 REM EINGABETEIL 
300 ' 

310 GET #1,START 
320 LET DATUM=CVS(Y$) 

330 GOSUB 910 
340 ' 

350 GET #1,START 
360 LET X=CVS(Y$) 

370 GOSUB 910 
380 ' 

390 REM BUCHTITEL ZUSAMMENSETZEN 
400 ' 

410 FOR J=1 TO X 

420 GET #1,START 

430 LET BUCH$=BUCH$+Y$ 

440 GOSUB 910 

450 NEXT J 
460 ' 

470 GET#1,START 
480 LET X=CVS(Y$) 

490 GOSUB 910 
500 ' 

510 REM NAME HOLEN 
520 ' 

530 FOR J=1 TO X 
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540 GET #1,START 

550 LET N$=N$+Y$ 

560 GOSUB 910 

570 NEXT J 
580 ' 

590 REM FLAG HOLEN. 

600 ' 

610 GET #1,START 
620 LET FLAG=CVS(Y$) 

630 GOSUB 910 
640 ' 

650 REM AUSGABETEIL 
660 ' 

670 IF L=0 THEN PRINT LOESCH$ 

680 PRINT "AUSGABEDATUM: ” DATUM 
690 PRINT "BUCHTITEL: " BUCH$ 

700 PRINT "ENTLEIHER: " N$ TABC30) ” 

710 IF FLAG =1 THEN PRINT "NOCH VERLIEHEN" ELSE PRINT "DA" 
720 LET BUCH$="” 

730 LET N$="" 

740 PRINT 

750 LET L=L+4 

760 IF L<22 THEN 810 

770 PRINT "WEITER —> DRÜCKEN SIE EINE TASTE"; 

780 T$=INPUT$(1) 

790 LET L=0 
800 ' 

810 REM WEITERE DATENSÄTZE? 

820 ' 

830 IF START < ZAEHLER THEN 310 
840 PRINT "FERTIG" 

850 CLOSE #1 
860 ' 

870 REM PROGRAMMENDE 
880 ' 

890 END 
900 ' 

910 REM UNTERPROGRAMM ZUM INKREMENTIEREN VON START 
920 ' 

930 LET START=START+1 
940 RETURN 


Bild 9.3 Programm zum Lesen einer ss-Datei 
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Das Programm beginnt genauso wie das aus Bild 9.2. Der Satzzähler 
wird in ZAEHLER abgelegt, START erhält den Wert 2 für den ersten 
Datensatz, der gelesen werden soll, GET in Zeile 310 holt die Da¬ 
ten von der Diskette, und mit GOSUB 900 wird START inkrementiert. 
In Zeile 350 wird X auf 3 gesetzt. Dies ist der erforderliche 
Wert, um den Buchtitel zusammenzusetzen.CNachtprobe mußte in drei 
Sätzen gespeichert werden) In den Zeilen 410 bis 450 steht zu 
diesem Zweck eine Schleife. Sie erledigt diese Aufgabe in umge¬ 
kehrter Reihenfolge wie die entsprechende Schleife im vorherge¬ 
henden Programm. Die drei Durchläufe liefern folgendes Ergebnis: 


J=1 

Y$="NACH" 

BUCH$="NACH" 

J=2 

Y$="TPR0" 

BUCH$="NACHTPRO" 

J=3 

Y$="BE " 

BUCH$="NACHTPROBE 


Nach den drei Durchläufen ist der Buchtitel wieder vollständig 
rekonstruiert. In Zeile 610 wird mit GET der Wert des Herkers zu¬ 
rückgelesen und der Variablen FLAG zugewiesen. In den Zeilen 670 
bis 790 wird der Datensatz auf den Bildschirm geschrieben. Beach¬ 
ten Sie, daß der Inhalt von FLAG den ausgegebenen Text ändert. In 
den Zeilen 720 und 730 setzen wir die Variablen BUCH$ und N$ auf 
Null. Täten wir das nicht, so würden wir beim nächsten Durchlauf 
die alten Daten erneut erhalten. 

In Zeile 830 wird der aktuelle Satzzähler mit der Gesamtanzahl 
der gespeicherten Datensätze (ZAEHLER) verglichen. Solange START 
kleiner wie ZAEHLER ist, sind noch Daten vorhanden, die vom Pro¬ 
gramm beginnend mit Zeile 310 gelesen werden können. Erst wenn 
alle Daten gelesen sind (START >= ZAEHLER), wird das Programm be¬ 
endet . 


WAS GEWINNEN WIR MIT SS-DATEIEN ? 

Der gesparte Speicherplatz ist der Haupt vorteil dieser Methode. 
Bei steigendem Umfang einer Datei fällt das oft sehr stark ins 
Gewicht. Der zweite Vorteil der Methode ist, daß wir einen Datei¬ 
typ haben, der sowohl sequentiell als auch mit beliebigen Zugrif¬ 
fen gelesen werden kann. Wir müssen nur wissen, welcher Datensatz 
die benötigte Information enthält, und wir können direkt darauf 
zugreifen. (Wir könnten hierzu eine Datei erstellen, die auf den 
Inhalt der Datensätze Bezug nimmt - eine sogenannte Indexdatei.) 
Daten können auf schnelle Weise geändert und neu gespeichert wer¬ 
den, ohne daß hierzu die langsamen, sequentiellen Methoden ange- 
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wendet werden müssen. Dateien nach der ss-Methode sind nicht sehr 
gut geeignet, wenn laufend große Mengen neuer Daten hinzukommen, 
weil ihr Umfang etwas begrenzt ist. Wesentlichster Nachteil die¬ 
ses Dateityps ist jedoch der größere Programmieraufwand. Sie nut¬ 
zen den Speicherplatz nicht so gut aus wie sequentielle Dateien, 
aber sie verschwenden ihn auch nicht so wie wahlfrei zugreifbare. 
Der Programmierer sollte jedoch nicht vergessen, daß Speicher¬ 
platz gewöhnlich billiger ist als seine Arbeitszeit. Zusammenfas¬ 
send läßt sich sagen, daß ss-Dateien einen Mittelweg zwischen den 
beiden anderen Dateiformen darstellen, der in ausgewogener Art 
und Weise Vor- und Nachteile aufweist, die jeweils an der Appli¬ 
kation zu messen sind. 


ÜBUNGEN 

1. Entwerfen Sie einen Algorithmus, der es erlaubt, die FLAG-Va- 
riable bei der Rückgabe eines Buches zu ändern. 

2. Schreiben Sie das Programm zu 2. 

3. Welche der drei bekannten Dateiverwaltungsformen würden Sie in 
den unten angegebenen Beispielen anwenden? 

a) für eine Datei mit spezifischen Bildschirmdaten 

b) für eine Datei mit Noten für eine Anzahl von Studenten 

c) für eine Datei mit Bilanzdaten und Lohnabrechnungen eines Be¬ 
triebs 

d) für eine Datei mit Arbeitnehmerdaten, die zur Lohnabrechnung 
nötig sind 

e) für eine Datei, die Schecknummern, Scheckbeträge, den Scheck¬ 
empfänger und einen Merker enthält, der für das Einlösen des 
Schecks steht 
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SORTIEREN UND SUCHEN 


Es ist eine der Hauptaufgaben eines Rechners, Daten zu sortieren. 
Die Zahlen können dabei Postleitzahlen, Telefonnummern oder Haus¬ 
nummern sein. Normalerweise kommen Listen solcher Zahlen von ei¬ 
ner Disketten-Datei. Nach dem Sortiervorgang werden sie in der 
neuen Reihenfolge wieder auf der Diskette gespeichert. Im folgen¬ 
den Beispiel werden wir mit RND eine Reihe Zufallszahlen erzeu¬ 
gen, die dann mit verschiedenen Sortiermethoden in die ihrem Wert 
entsprechende Reihenfolge eingeordnet werden. Wir verwenden den 
RANDOMIZE-Befehl bewußt nicht, um wiederholbare Sequenzen erzeu¬ 
gen zu können. In allen folgenden Beispielen sortieren wir in 
auf steigender Reihenfolge. 


DIE BUBBLE-SORT-METHODE 

Von allen zur Verfügung stehenden Sortiermethoden ist die Bubble¬ 
sort-Methode am leichtesten zu verstehen. Zunächst werden die er¬ 
sten beiden Zahlen der Datei in die richtige Reihenfolge ge¬ 
bracht. Wenn die erste Zahl kleiner als die zweite ist, dann wer¬ 
den die Zahlen vertauscht. Dieses Prinzip wird anschließend auf 
die ganze Datei angewendet. Nach einer bestimmten Anzahl von 
Durchläufen erscheint der kleinste Wert am Anfang der Liste. Bild 
10.1 zeigt, wie man diese Methode programmieren kann. 


100 REM 16. MAI 1983 

110 REM DIESES PROGRAMM ERZEUGT UND SORTIERT ZUFALLSZAHLEN 

120 REM NACH DER BUBBLE-SORT-METHODE 

130' 

140 REM EINGABETEIL 
150 ' 

160 INPUT "ANZAHL DER ZU SORTIERENDEN ELEMENTE: ",N 
170 DEFINT J,K 
180 DIM X(N) 

190 ' 

200 REM BERECHNUNG 
210 ' 

220 PRINT "DIE ZUFALLSZAHLEN SIND:" 

230 PRINT 

240 FOR J=1 TO N 

250 LET X(J)=INT(RND*1000) 
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260 NEXT J 
270 ' 

280 FOR J=1 TO N 
290 PRINT X(J); 

300 NEXT J 
310 ' 

320 PRINT 
330 ' 

340 FOR J=1 TO N 
350 FOR K=1 TO N-l 

360 IF X(K)>X(K+1) THEN TEMP=X(K):X(K)=X(K+1):X(K+1)- 

TEMP 

370 NEXT K 

380 NEXT J 
390 ' 

400 REM AUSGABETEIL 
410 ' 

420 PRINT CHR$(7) 

430 PRINT "DIE SORTIERTEN ZAHLEN SIND:" 

440 ' 

450 FOR J=1 TO N 
460 PRINT X(J); 

470 NEXT J 
480 ' 

490 REM PROGRAMMENDE 
500 ' 

510 END 


Bild 10.1 Die Bubble-sort-Methode 


Am Anfang wird die Anzahl der zu sortierenden Elemente erfragt. 
(Starten Sie Ihre eigenen Versuche mit einem Wert um 250.) Die 
Anzahl wird zum Dimensionieren der X-Matrix in Zeile 180 verwen¬ 
det. Das DEFINT-Kommando in Zeile 170 läßt die Schleifen 'schnel¬ 
ler laufen'. Innerhalb der Schleife zwischen den Zeilen 240 bis 
260 werden die Zufallszahlen erzeugt. Ausgedruckt werden sie in 
der nächsten Schleife. 

Danach beginnt der Sortiervorgang mit den verschachtelten Schlei¬ 
fen in den Zeilen 340 und 380. In Zeile 360 findet der erste Zah¬ 
lenvergleich statt. Ist die erste Zahl größer als die zweite, so 
erhält TEMP den Wert der ersten zugewiesen. Der kleinere Wert 
rutscht damit auf die zweite Stelle. Für den nächsten Vergleich 
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erhält TEMP wieder den zweiten Wert. Dies wollen wir in einem 
Beispiel veranschaulichen. Nehmen wir dazu die beiden Zahlen 
X(l)=5 und X(2)=3. 


Erster Wert X(l)=5 Zweiter Wert X(3)=2 


TEMP=X(K) 
X(K)=X(K+1) 
X(K+1)=TEMP 


Bemerkung:IF/THEN ist wahr, da 5>3 —>TEMP=5 


X(1)=XC2), —> X(1)=3 
X(2)=TEMP, —> X(2)=5 


Das Ergebnis des ersten Sortiervorgangs sieht so aus: X(l)=3 und 
X(2)=5. Damit wurde das erste Zahlenpaar entsprechend seiner Grö¬ 
ße zugeordnet. Anschließend vergleicht das Programm X(2) mit XC3) 
usw... 

Beachten Sie, daß alles nach THEN ignoriert wird, wenn XOO < 
X(K+1) gilt. Diese Zahlen stehen dann schon in der richtigen Rei¬ 
henfolge. (überlegen Sie: Wozu brauchen wir TEMP? Was geschieht 
mit XOO, wenn wir TEMP nicht verwenden?) 

Nachdem die K-Schleife N mal ausgeführt wurde,müssen wir die J- 
Schleife noch N-l mal durchlaufen. Wir wollen uns ansehen, warum. 
Nehmen Sie an, wir hätten eine Liste mit 10 Zahlen, und die 
kleinste Zahl steht ganz hinten. Nach einmaligem Durchlaufen der 
K-Schleife steht die kleinste Zahl auf Position 9. Wir müssen 
jetzt noch neun weitere Durchläufe in der J-Schleife ausführen, 
damit sie an den Anfang der Liste rutscht. 

Wie Sie ganz richtig vermuten, ist diese Suchmethode ziemlich 
zeitintensiv. Tatsächlich müssen bei einer Liste mit N Elementen 
N~2 Vergleichsoperationen ausgeführt werden. Bild 10.2, zeigt daß 
diese Methode wirklich funktioniert. 


DIE SWAP-ANWEISUNG 

Das Sortierproblem taucht beim Programmieren so oft auf, daß B-80 
hierfür sogar eine eigene Funktion besitzt. Die SWAP-Anweisung 
wird zum Vertauschen von zwei Zahlen verwendet. Andern Sie Zeile 
360 folgendermaßen: 

360 IF X(K)>X(K+1) THEN SWAP X(K), X(K+1) 
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Sie werden keinen Unterschied finden, wenn Sie das Programm er¬ 
neut laufen lassen. Mit SWAP steht uns eine etwas vereinfachte 
Methode zum Vertauschen der Variablen zur Verfügung. 


DIE ZUFALLSZAHLEN SIND: 


245 305 

311 

515 58 788 

497 

363 

984 

901 

727 

6 1 

1 956 

40 896 660 554 818 907 858 868 506 583 

DIE SORTIERTEN 

ZAHLEN SIND: 







1 6 40 

58 

245 305 311 

363 

497 

506 

515 

554 

583 

660 727 

788 

818 858 868 

896 

901 

907 

956 

969 

984 


Bild 10.2 Ausgabe des Sortierprogramms 


DIE VERBESSERTE BUBBLE-SORT-METHODE 

Wir haben gerade herausgefunden, daß die Bubble-sort-Methode N 
Quadrat mal Vergleiche durchführen muß, um zu einer sortierten 
Liste zu kommen. Das ist auch für diese Zahlenfolge nicht anders: 

2, 1, 3, 4, 5, 6, 7, 8, 9, 10 10.1 

Nach einem Durchlauf durch die J-Schleife ist sie sortiert. So, 
wie die Methode jetzt programmiert ist, existiert keine Bedin¬ 
gung, die uns mitteilt, daß der Sortiervorgang beendet ist. Wir 
brauchen also ein Kriterium, das es uns erlaubt, den Sortiervor¬ 
gang abzubrechen, wenn die Liste bereits vorzeitig korrekt sor¬ 
tiert ist. Die Liste 10.1 zeigt uns, warum dies notwendig werden 
kann. Bereits nach einem Durchlauf durch die K- und durch die J- 
Schleife stimmt die Reihenfolge. Trotzdem würde das Programm wei¬ 
terhin alle möglichen Permutationen durchspielen. 

Liegt die Liste einmal in der richtigen Reihenfolge vor, dann 
werden die auf THEN folgenden Befehle in Zeile 360 nicht mehr 
ausgeführt. Wir müssen nur noch eine Variable in unser Programm 
einbauen, die abhängig von diesem Kriterium gesetzt wird. Wie ein 
solcher Merker (engl, flag) in das Programm eingebaut werden 
kann, zeigen die folgenden Zeilen: 
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345 LET FLAG=1 

360 IF X(K)>X(K+1) THEN SWAP X(K), X(K+1): LET FLAG=0 
375 IF FLAG=1 THEN 510 


Damit haben wir uns ein Abbruchkriterium geschaffen, das das Pro¬ 
gramm beendet, wenn die Liste korrekt sortiert ist. Zeile 345 
setzt FLAG auf 1. Solange der Sortiervorgang noch notwendig ist, 
werden die Anweisungen nach THEN ausgeführt, und die Bedingung in 
375 ist falsch. Wenn jedoch der Vertauschvorgang nicht mehr zur 
Ausführung kommt, dann bleibt auch FLAG 1, und das Programm wird 
beendet. Mit dieser Methode wird die Liste 10.1 schon nach zwei 
Durchläufen fertig. 


ÜBUNGEN 

1. Bauen Sie die folgende Zeile in Ihr Programm ein: 

372 PRINT JK" 

und lassen Sie das Programm mit 10 Zahlen laufen (FLAG sollte 
für diese Übung noch nicht eingebaut sein!). Notieren Sie 
sich, was Sie sehen. Löschen Sie anschließend die Zeilen 220 
bis 260. Lassen Sie das Programm erneut laufen und versuchen 
Sie herauszufinden, was sich geändert hat. Implementieren Sie 
jetzt FLAG und vergleichen Sie die beiden Versionen. 

2. Schreiben Sie das Sortierprogramm so um, daß es in fallender 
Reihenfolge sortiert. 

3. Nehmen Sie an, wir hätten zwei Matrizen X und Y, die zusammen 
eine Tabelle ergeben. Schreiben Sie ein Programm, das die Zu¬ 
ordnung von X(K) zu Y(K) beibehält,während sie X(K) sortieren. 
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DIE SORTIERMETHODE MACH SHELL-METZNER 

Die Bubble-sort-Methode ist eine recht langsame Angelegenheit. 
Deshalb wollen wir uns als Alternative mit der Sortiermethode 
nach Shell-Metzner (SM) beschäftigen. In Bild 10.3 wird diese Me¬ 
thode angewandt, um eine Reihe Zufallszahlen zu sortieren. 


100 REM 17. MAI 83 

110 REM DIESES PROGRAMM ERZEUGT UND SORTIERT ZUFALLSZAHLEN 
120 REM NACH DER SHELL-METZNER-METHODE 
130 ' 

140 REM EINGABETEIL 
150 ' 

160 INPUT "ANZAHL DER ZU SORTIERENDEN ELEMENTE: ",N 
170 DIM X(N) 

180 DEFINT I,J,K 
190 ' 

200 REM BERECHNUNG 
210 ' 

220 PRINT "DIE ZUFALLSZAHLEN SIND:" 

230 PRINT 

240 FOR J=1 TO N 

250 LET X(J)=INT(RND#100) 

260 NEXT J 
270 ' 

280 FOR J=1 TO N 
290 PRINT X(J)J 

300 NEXT J 
310 ' 

320 PRINT 
330 ' 

340 REM SHELL METZNER 
350 ' 

360 LET S=N 

370 LET S=INT(S/2) 

380 IF S>=1 THEN 400 

390 GOTO 550 

400 FOR K=1 TO S 

410 FOR I=K TO N-l STEP S 

420 LET J=I 

430 LET T=X(I+S) 

440 IF T>=X(J) THEN 480 

450 X(J+S)=X(J) 
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460 

470 

480 


LET J=J-S 
IF J>=1 THEN 440 
LET X(J+S)=T 


490 NEXT I 

500 NEXT K 
510 GOTO 370 
520 ' 

530 REM AUSDRUCK DER SORTIERTEN LISTE 
540 ' 

550 FOR J=1 TO N 
560 PRINT X(J); 

570 NEXT J 
580 ' 

590 REM PROGRAMMENDE 
600 ' 

610 END 

Bild 10.3 Sortiermethode nach Shell-Metzner 


Die Zeilen 100 bis 330 sind nahezu dieselben wie bei Bubble-sort. 
Die eigentliche Sortiersequenz ist allerdings völlig verschieden. 
Für den Anfang wollen wir einmal die folgenden sechs Zahlen sor¬ 
tieren: 

24. 30, 31, 51, 5, 78 

Unser Programm weist am Anfang die Zahl der zu sortierenden Ele¬ 
mente der Variablen S zu (6 in unserem Beispiel). In Zeile 370 
wird S durch 2 dividiert und erhält den neuen Wert (3) zugewie¬ 
sen. Weil S > 1 ist, wird das Programm in Zeile 400 mit der K- 
Schleife fortgesetzt. In Zeile 410 wird S nochmals als Schleifen¬ 
endwert benutzt. Mit S=3 wird aus Zeile 410: 

410 FOR I=K TO 6-3 STEP 3 

damit sehen die beiden Schleifen folgendermaßen aus: 

400 FOR I=K TO 3 

410 FOR I=K TO 3 STEP 3 

Damit haben wir die Liste in zwei Teile zerlegt. Beim ersten 
Durchlauf sind I und K gleich eins. In Zeile 420 wird J gleich I 
gesetzt und ist damit auch 1. In Zeile 430 erhält T den Wert des 
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Elements X(I+S). Weil 1=1 und S=3 ist, erhält T=X(4). In Zeile 
440 wird schließlich abgefragt, ob T größer als X(J) ist. Damit 
wird folgender Vergleich gemacht: 


S 


X(l) 

J 



1 

1 

XC4) 

j 



1 

24 

30 

31 

1 

| 

i 

51 

5 

78 


t t 

V V 

I I 


XCJ) T 

Bild 10.3 


Beim ersten Mal werden 24 und 51 verglichen. Weil hier T größer 
ist als XCJ), wird das Programm in Zeile 480 fortgesetzt. In die¬ 
ser Zeile erhält T den Wert XC1+3). Die I-Schleife wird anschlie¬ 
ßend um 3 inkrementiert. Als nächstes Zahlenpaar wird 31 und 78 
miteinander verglichen. Wieder ist der erste Wert kleiner, wes¬ 
halb kein Vertauschen notwendig wird. Nach Beendigung der I- 
Schleife wird K inkrementiert, und ein neuer Durchlauf beginnt. 
Beim zweiten Durchlauf wird die I-Schleife nur einmal ausgeführt. 
Hier wird X(2) mit X(5) verglichen. Da 30 größer als 5 ist, er¬ 
hält X(5) 30 zugewiesen. In Zeile 460 steht in J der Wert -1. Die 
IF/THEN-Bedingung in Zeile 440 ist deshalb falsch, und X(2) er¬ 
hält den Wert 5. 

Wenn ein Durchlauf der K- und der I-Schleife beendet ist, dann 
läuft das Programm in Zeile 370 weiter, wo S nochmals halbiert 
wird. S beinhaltet nun 1. Damit läuft die I-Schleife mit den Wer¬ 
ten 1-5. Wenn Sie das Programm anhand der vorher besprochenen Lo¬ 
gik durcharbeiten, werden Sie sehen, daß jetzt die korrespondie¬ 
renden Zahlen verglichen werden. Nachdem die beiden Schleifen¬ 
durchläufe beendet sind, ist die Liste fertig sortiert. Wird S 
nun nochmals durch 2 geteilt, so ist das Ergebnis 0, und in Zeile 
390 wird die Schleife verlassen. Das Programm kann beendet wer¬ 
den. 

Die Sortiermethode nach Shell-Metzner ist erheblich schneller als 
die Bubble-sort-Methode. Sie können das leicht feststellen, indem 
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Sie unsere beiden Programme mit einer möglichst großen Datenmenge 
laufen lassen. Schon bei 100 Zahlen ist die SM-Methode etwa drei¬ 
mal so schnell wie Bubble-sort und der Zeitunterschied steigt mit 
zunehmender Elementenzahl stark an. Dieser Unterschied entsteht 
hauptsächlich dadurch, daß bei der Shell-Metzner Methode eine 
Zahl innerhalb eines Schleifendurchlaufs um eine halbe Listenlän¬ 
ge verschoben wird, während bei Bubble-sort nur eine Verschiebung 
um jeweils einen Platz stattfindet. 

Der zur Verfügung stehende Raum reicht leider nicht aus, um mehr 
über die Theorie der Sortiermethoden zu sagen. Damit Sie trotzdem 
etwas mehr Einblick in die Shell-Metzner-Sortiermethode erhalten, 
sollten Sie das Beispiel um die folgenden Zeilen erweitern: 


482 FOR D=1 TO N 
484 PRINT X(D); 

486 NEXT D 

488 PRINT S,K,I,J,T : STOP 


Damit können Sie den Inhalt der Variablen nach jedem Schleifen¬ 
durchlauf inspizieren. Die STOP-Anweisung am Ende der Zeile be¬ 
wirkt eine Unterbrechung des Programms. Nachdem Sie alle Werte 
gelesen haben, können Sie mit CONT CR das Programm weiterlaufen 
lassen. 


ÜBUNGEN 

1. Lassen Sie das Bubble-sort-Programm mit 100 und mit 200 Zahlen 
laufen. Fügen Sie dann den Merker hinzu und vergleichen Sie 
die Ausführungszeiten. Um wieviel schneller ist das Programm 
geworden? 

2. Nehmen Sie an, daß in eine sortierte Zahlendatei eine Zahl in 
die Mitte eingefügt wird. Die Zahl soll Ihrer Größe nach an 
das Ende der Liste gehören. Welche der Sortiermethoden führt 
schneller ans Ziel und warum? 

3. Schreiben Sie ein Programm, das die sortierten Daten in einer 
Disketten-Datei ablegt. Wählen Sie eine geignete Dateiform. 
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4. Versuchen Sie die Antwort von 2. experimentell zu untermauern. 
Setzen Sie in die Mitte der Matrix X eine 0, nachdem die Liste 
sortiert ist und lassen Sie die Programme (alle drei!) laufen. 
Als Hilfe für die Shell-Metzner-Methode soll Ihnen dies die¬ 
nen: 

582 LET XC50) = 0 
584 GOTO 360 

Wir gehen dabei von 100 Elementen in X aus. 


SUCHMETHODEN 

Nachdem wir jetzt sortierte Listen zur Verfügung haben, wollen 
wir uns mit Methoden beschäftigen, die uns das Auffinden einzel¬ 
ner Listenpositionen ermöglichen. 


LINEARES SUCHEN 

Lineares Suchen ist die einfachste Suchmethode überhaupt. Wenn 
wir eine Liste mit 1000 Zahlen haben, müssen wir nur die zu su¬ 
chende Zahl eingeben und innerhalb einer Schleife Listenposition 
um Listenposition mit dieser Zahl vergleichen. 

Im folgenden Beispiel nehmen wir an, daß im ersten Programmteil 
eine Liste mit 1000 Zahlen gelesen wurde. Jede Zahl belegt ein 
Element der X-Matrix. 


200 IN X BEFINDEN SICH 1000 ELEMENTE 
210 ' 

220 INPUT "WELCHE ZAHL SOLL GESUCHT WERDEN",N 

230 FOR J=1 TO 1000 

250 IF N=X(J) THEN 290 

260 NEXT J 

270 PRINT "DIE ZAHL EXISTIERT NICHT" 

280 GOTO 300 

290 PRINT "DIE ZAHL STEHT IN POSITION" J 
300 END 
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Das Programm führt in Zeile 250 einen Vergleich durch, um festzu¬ 
stellen, an welcher Stelle die Zahl steht und ob sie überhaupt 
vorhanden ist. 

Diese Methode hat einen Vorteil: Die Zahl würde auch in einer un¬ 
sortierten Liste gefunden werden. Nachteilig ist, daß schlimm¬ 
stenfalls die ganze Liste Element für Element gelesen werden muß, 
um die gesuchte Zahl zu finden. Bei sehr langen Listen sinkt die 
Arbeitsgeschwindigkeit erheblich ab. 


SUCHEN MIT DER INTERVALL-HALBIERUNGSMETHODE 

In einer Fernsehshow wurde ein Kandidat aufgefordert, den Preis 
eines Gegenstandes zu erraten. Der Showmaster antwortete auf den 
jeweiligen Rateversuch mit "zu hoch" oder mit "zu niedrig". Neh¬ 
men wir an, der Gegenstand würde DM 575 kosten und der erste Ver¬ 
such lautet 400 Mark. Die Antwort darauf wäre "zu niedrig", wo¬ 
rauf der Ratende mit DM 700 einen neuen Versuch unternimmt. Jetzt 
würde er "zu hoch" hören. Der Kandidat kennt damit die Extremwer¬ 
te, zwischen denen sich der Wert befinden muß. Wenn er klug ist, 
wird er als nächstes die halbierte Summe der Extremwerte versu¬ 
chen (DM 550). Zu Ende geführt würde dieses Spiel so aussehen: 


Nr. 

Versuch 

Antwort 

Bereich 

1 

400 

zu niedrig 

400- ? 

2 

700 

zu hoch 

400-700 

3 

550 

zu niedrig 

550-700 

4 

625 

zu hoch 

550-625 

5 

587 

zu hoch 

550-587 

6 

568 

zu niedrig 

568-587 

7 

577 

zu hoch 

568-577 

8 

573 

zu niedrig 

573-577 

9 

575 

richtig 


Man 

bezeichnet 

diese Art des Suchens als 

Intervall-Halbierungsme- 

thode. Die zu 

untersuchende Liste wird 

laufend halbiert, womit 

sich 

die Zahl 

der zu untersuchenden Elemente rapide verringert. 

Bei 

einer Liste mit 1000 Elementen wäre 

der erste Versuch 500. 
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Hat die gesuchte Zahl einen Wert kleiner 500, so können alle Ele¬ 
mente, die größer als 500 sind, außer acht gelassen werden. Der 
'neue' größte Wert ist jetzt 500, und der nächste Versuch wäre 
250. Unter der Annahme, daß 250 kleiner als die gesuchte Zahl 
ist, können wir 250 jetzt als neuen kleinsten Wert einsetzen. Da¬ 
mit sind wir schon nach zwei Vergleichsoperationen bei nur noch 
25% der ursprünglich zu untersuchenden Datenmenge (Bereich 250 
bis 500). Genaugenommen sind es sogar weniger als 25%, weil die 
beiden Extremwerte bereits direkt verglichen wurden und dabei 
keine Übereinstimmung gefunden wurde. 

Zwei Umstände schränken die Anwendung dieser Methode ein. Sie ist 
nur dann anwendbar, wenn eine sortierte Liste vorliegt und die 
Liste keine 'Löcher” hat. 

In Bild 10.4 finden Sie wieder ein Beispielprogramm für diese Me¬ 
thode. Wir erzeugen eine sortierte Matrix, indem wir sie mit der 
Indexzahl der Elemente auffüllen (Schleife 210 bis 230). Diese 
Operation braucht einige Zeit! 

Anschließend müssen Sie eine Zahl eingeben, die gesucht werden 
soll (zwischen 1 und 1000). Der Suchvorgang wird mit Zeile 330 
begonnen, wenn die eingegebene Zahl korrekt war. Die Variable 
FLAG wird herangezogen, um festzustellen, ob der Suchvorgang er¬ 
folgreich war. In den Zeilen 350 bis 360 wird der abzusuchende 
Bereich gesetzt. 

Wenn HI = 1000, LO = 1 und FLAG = 0 ist, dann wird Zeile 400 aus¬ 
geführt. Hier wird die Liste halbiert. Obwohl wir sonst immer 
Glück haben, gibt es noch keine Übereinstimmung, weshalb in Zeile 
440 auf zu groß oder zu klein abgefragt wird. 

Vom Ergebnis der Abfrage hängt ab, ob der mittlere Wert der neue 
Maximal- oder Minimalwert wird (X(MID)=HI bzw. X(MID)=L0). Durch 
kontinuierliches Verkleinern des abzusuchenden Intervalls finden 
wir schließlich die Zahl, vorausgesetzt, sie war Bestandteil der 
Liste. Die Variable FLAG wird nur dann 1, wenn die Zahl gefunden 
wurde. Ist sie nicht in der Liste, dann wird LO größer als HI, 
und das Programm verzweigt zu Zeile 520. 


100 REM 19. MAI 83 

110 REM DIESES PROGRAMM SUCHT EINE ZAHLENREIHE NACH DER 
120 REM INTERVALL-HALBIERUNGSMETHODE AB 
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130 ' 

140 REM 
150 ' 

160 LET MAX=1000 
170 DIM X(MAX) 

180 DEFINT J 

190 LET LOESCH$=CHR$(27)+CHR$(42) 

200 ' 

210 FOR J=1 TO MAX 
220 LET X(J)=J 
230 NEXT J 
240 ' 

250 REM EINGABETEIL 
260 

270 PRINT LOESCH$ 

280 INPUT "GEBEN SIE EINE ZAHL ZWISCHEN 1 UND 1000 EIN",N 
290 IF N<0 OR N>1000 THEN 280 
300 ' 

310 REM BEARBEITUNGSTEIL 
320 ' 

330 LET FLAG=0 
340 ' 

350 LET HI=MAX 
360 LET L0=1 
370 ' 

380 IF HI<LO THEN 520 
390 IF FLAG =1 THEN 540 
400 LET MID=INT((LO+HI)*,5) 

410 IF NOX(MID) THEN 440 
420 LET FLAG=1 
430 GOTO 540 

440 IF N>X(MID) THEN 470 

450 LET HI=MID-1 

460 GOTO 380 

470 LET LO=MID+l 

480 GOTO 380 

490 ' 

500 REM FANDEN WIR DIE ZAHL? 

510 ' 

520 PRINT "NICHT GEFUNDEN" 

530 GOTO 590 
540 PRINT 

550 PRINT "GEFUNDEN IN POSITION" N 
560 ' 
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570 REH PROGRAMMENDE 
580 ' 

590 END 

Bild 10.4 Suchen nach der Intervall-Halbierungsmethode 

Diese Suchmethode ist derartig schnell, daß mehrere hundert Zah¬ 
len verglichen werden können, ohne daß der Benutzer etwas davon 
merkt. 


ÜBUNGEN 

1. Vergleichen Sie die Arbeitsgeschwindigkeit der Intervall-Hal¬ 
bierungsmethode mit der der linearen Suchmethode, indem Sie 
wieder die Matrix aus Bild 10.1 verwenden und darin Zahlen su¬ 
chen. 

2. Ergänzen Sie das Programm aus Bild 10.4 mit den folgenden Zei¬ 
len: 

335 LET DURCHLAUFE 

385 PRINT "DURCHLAUF NUMMER" DURCHLAUF 
387 LET DURCHLAUF = DURCHLAUF+l 


Wie groß ist die Anzahl der Durchläufe, wenn Sie die Größe der 
Liste verdoppeln oder halbieren? 

3. Nehmen Sie an, Sie hätten ein Programm, mit dem Namen und Ad¬ 
ressen verwaltet werden. Wie muß ein Algorithmus aussehen, der 
untersucht, ob Postleitzahl und Stadt wirklich zueinander ge¬ 
hören? 

4. überlegen Sie, wo sich die Intervall-Halbierungsmethode anwen¬ 
den läßt. 
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EINE EINFACHE SIMULATION 

Nehmen wir an. Sie wären Inhaber eines Betriebs und müßten die 
Auswirkungen untersuchen, die die Inflation auf Ihr Einkommen im 
nächsten Jahr haben könnte. Sicher ist nur eines: Die Preise wer¬ 
den steigen! Allerdings werden nicht alle mit dem gleichen Pro¬ 
zentsatz steigen. Der beste Weg, die Auswirkungen der Inflation 
auf Ihr Einkommen zu untersuchen, ist deshalb eine Art Planspiel. 
Damit könnten Sie ausprobieren, was wäre, wenn. Mit anderen Wor¬ 
ten ausgedrückt, benötigen Sie die Möglichkeit, eine Simulation 
durchzuführen. 

Das Programm in Bild 11.1 soll dazu dienen, den Einfluß der In¬ 
flation auf Ihr Nettoeinkommen zu simulieren. Wir benutzen dazu 
eine einfache Einkommensübersicht. 



Umsatz: 

DM 

10025.00 

Unkosten 

Warenkosten: 


6200.00 


Rohgewinn: 

DM 

3825.00 

Sonstige Kosten 

Personalkosten: 


2000.00 


Werbung: 


250.00 


Gemeinkosten: 


130.00 

Summe sonstige Kosten: 


2380.00 


Nettoeinkünfte: 

DM 

1445.00 


Tabelle 11.1 Einkommensübersicht für das Simulationsprogramm 

Die Einzelpositionen dieser Tabelle finden Sie im DATA-Befehl in 
Zeile 1120 des Programms wieder. Wir nehmen sie als Grundlage un¬ 
serer Berechnungen. 

1000 REM 20. MAI 83 

1010 REM DIESES PROGRAMM SIMULIERT DIE AUSWIRKUNGEN DER 
1020 REM INFLATION AUF EIN ANGENOMMENES EINKOMMEN 
1030 ' 

1040 ' 

1050 REM SCHIRMFUNKTIONEN FUER SOROC TERMINAL 
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1060 ' 

1070 DEF FNC$(X,Y)=CHR$(27)+CHR$(61)+CHR$(X+31)+CHR$(Y+31) 
1080 LET LOESCH$=CHR$(27)+CHR$(42) 

1090 LET D$="DM######,.##" 

1100 LET Dl$=”#######,.##" 

1110 ' 

1120 DATA 10025,6200,2000,250,130 
1130 ' 

1140 REM BILDSCHIRMMASKE 
1150 ' 

1160 PRINT LOESCH$ 

1170 PRINT TAB(20) "DIE SIMULATION VERWENDET ^ZUNAHME" 
1180 PRINT 

1190 PRINT TABCl4) "UMSATZ:" 

1200 PRINT "UNKOSTEN:” 

1210 PRINT 

1220 PRINT "WARENKOSTEN:" 

1230 PRINT TABC20) STRING$(12,45) 

1240 PRINT "ROHGEWINN: " 

1250 PRINT 

1260 PRINT "SONSTIGE KOSTEN:” 

1270 PRINT 

1280 PRINT TABC14) "PERSONALKOSTEN:" 

1290 PRINT TAB(8) "WERBUNG:" 

1300 PRINT TABC5) "GEMEINKOSTEN:" 

1310 PRINT TABC20) STRING$(12,45) 

1320 PRINT TAB(5) "SUMME SONSTIGE KOSTEN" 

1330 PRINT 

1340 PRINT TAB(9) "NETTOEINKUENFTE:" 

1350 ' 

1360 FOR J=1 TO 5 
1370 READ X(J) 

1380 LET P(J)=1 

1390 NEXT J 
1400 ' 

1410 REM AUSGANGSEINKOMMEN IN DER ERSTEN SPALTE 
1420 ' 

1430 LET Y=21 
1440 GOSUB 1800 
1450 ' 

1460 REM EINGABE DER ERWARTETEN INFLATION 
1470 ' 

1480 PRINT FNC$(22,10); 

1490 PRINT "GEBEN SIE DIE INFLATIONSRATE EIN: 
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1500 PRINT FNC$(22,44); 

1510 INPUT; " " ,PL 
1520 ' 

1530 REM EINGABE FUER ENDE: 999 
1540 ' 

1550 IF PL=999 THEN END 
1560 ' 

1570 LET RATE=PL-1 
1580 LET RATE=RATE*100 
1590 ' 

1600 FOR J=1 TO 5 
1610 LET P(J)=PL 
1620 NEXT J 
1630 ' 

1640 PRINT FNC$(1,37) 

1650 PRINT USING "###”;"RATE" 

1660 ' 

1670 LET Y=51 
1680 GOSUB 1800 
1690 ' 

1700 LET M=38 
1710 GOSUB 2040 
1720 GOSUB 1800 
1730 ' 

1740 GOTO 1480 
1750 ' 

1760 REM UNTERPROGRAMM AUSDRUCK ZAHLENREIHE 
1770 ' 

1780 REM BERECHNUNGS- UND AUSGABETEIL 
1790 ' 

1800 PRINT FNC$(3,Y); 

1810 PRINT USING D$;X(1)*P(1) 

1820 PRINT FNC$(6,Y); 

1830 PRINT USING D1$;X(2)*P(2) 

1840 PRINT FNC$(7,Y-1); 

1850 PRINT STRING$(12,45) 

1860 LET UMSATZ=(X(1)*P(1))-(X(2)*P(2)) 

1870 PRINT FNC$(8,Y); 

1880 PRINT USING D$;UMSATZ 
1890 PRINT FNC$(12,Y); 

1900 PRINT USING D1$;X(3)*P(3) 

1910 PRINT FNC$(13,Y); 

1920 PRINT USING D1$;X(4)*P(4) 

1930 PRINT FNC$(14,Y); 
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1940 PRINT USING D1$;X(5)*P(5) 

1950 PRINT FNC$(15,Y-1); 

1960 PRINT STRING$(12,45) 

1970 PRINT FNC$(16,Y); 

1980 LET SUMME=X(3)*P(3)+X(4)*P(4)+X(5)*P(5) 
1990 PRINT USING D1$;SUMME 
2000 PRINT FNC$(18,Y); 

2010 PRINT USING D$;UMSATZ-SUMME 
2020 RETURN 
2030 ' 

2040 REM PREISMATRIX 
2050 ' 

2060 FOR J=1 TO 5 

2070 ON J GOTO 2080,2090,2100,2110,2120 

2080 LET W=3:G0T0 2130 

2090 LET W=6:GOTO 2130 

2100 LET W=12:GOTO 2130 

2110 LET W=13:GOTO 2130 

2120 LET W=14 

2130 PRINT FNC$(W,38); 

2140 INPUT; " ”,T$ 

2150 IF LEN(T$)=0 THEN 2170 

2160 LET P(J)=VAL(T$) 

2170 NEXT J 
2180 RETURN 


Bild 11.1 Simulationsprogramm 

Die Bildschirmfunktionen werden in den Zeilen 1160 bis 1340 ver¬ 
einbart. Der einzige für Sie neue Befehl ist die STRING$-Anwei- 
sung in Zeile 1230. Sie macht es möglich, eine definierte Anzahl 
bestimmter ASCII-Zeichen zu erzeugen. Hier ihre allgemeine Form: 

STRING$ C Zeichenzahl,ASC11-Zeichen) 

Die STRING$-Anweisung in Zeile 1230 verursacht die zwölfmalige 
Ausgabe des ASCII-Zeichens mit dem Code 45. Das Zeichen mit die¬ 
sem Code ist ein Bindestrich. Die Anweisung erzeugt also eine ge¬ 
strichelte Linie. 

Die Schleife in den Zeilen 1360 bis 1390 ordnet die Daten aus dem 
DATA-Kommando der Matrix X zu und setzt alle Elemente der Matrix 
P auf 1. P enthält später die jeweiligen Inflationsraten. Das 
Programm benutzt die Variable Y für die Spaltenposition des Cur- 
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sors. GOSUB in Zeile 1440 ruft ein Unterprogramm auf, das die 
Einkommensübersicht ausdruckt. Hier wird auch jeder Wert mit den 
Elementen der P-Matrix multipliziert. Da momentan noch alle Ele¬ 
mente gleich 1 sind, wird das Einkommen des letzten Jahres ausge¬ 
druckt. Anschließend wird nach den Inflationsraten gefragt. Die 
Antwort wird der Variablen PL zugeordnet. In Zeile 1550 wird ab¬ 
gefragt, ob PL gleich 999 ist. Ist das nicht der Fall, werden al¬ 
le Elemente der Matrix mit dem eben eingegebenen Wert für die In¬ 
flationsrate aufgefüllt. Außerden erscheint dieser Wert in der 
Tabellenüberschrift. In Zeile 1670 wird der Inhalt von Y von 21 
auf 51 geändert, was zur Folge hat, daß die neue Tabelle neben 
der alten ausgedruckt wird. 

Auf dem Bildschirm sind jetzt zwei Einkommensübersichten zu se¬ 
hen. Die Tabelle mit den simulierten Werten steht rechts von den 
Ausgangswerten. Tabelle 11.2 zeigt den Ausdruck. Hier wird ange¬ 
nommen, daß Verkaufserlöse und Kosten gleich stark steigen. Da 
dies normalerweise nicht der Fall ist, können wir mit dem in Zei¬ 
le 2040 beginnenden Unterprogramm für jeden Posten eine indivi¬ 
duelle Inflationsrate eingeben. Diese Arbeit wird in einer 
Schleife erledigt, die fünfmal durchlaufen wird. Anstelle von Y 
wird jetzt die Variable M verwendet. Der Cursor wird deshalb hin¬ 
ter die jeweiligen Bilanzposten gestellt. Die Spaltenposition des 
Cursors wird jedesmal vor dem Unterprogramm auf 38 gesetzt, wo¬ 
durch eine Positionierung zwischen den alten und den neuen Werten 
möglich wird. Beachtenswert ist die IF/THEN-Anweisung in Zeile 
2150. Gibt der Benutzer außer CR nichts ein, dann bleibt der alte 
P(i)-Wert erhalten. 



Umsatz: 

DM 

10025.00 

DM 

11027.50 

Unkosten 

Warenkosten: 


6200.00 


6820.00 


Rohgewinn: 

DM 

3825.00 

DM 

4207.50 

Sonstige Kosten 

Personalkosten: 


2000.00 


2200.00 


Werbung: 


250.00 


275.00 


Gemeinkosten: 


130.00 


143.00 

Summe 

sonstige Kosten: 


2380.00 


2618.00 


Nettoeinkünfte: 

DM 

1445.00 

DM 

1589.50 


Tabelle 11.2 Auswirkungen einer lOprozentigen Inflationsrate 
im Simulationsprogramm 
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Mit dem GOSUB-Befehl in Zeile 1720 werden die neuen Tabellenwerte 
ausgedruckt. Anschließend beginnt das Programm von neuem. Es kann 
unterbrochen werden, wenn für die Inflationsrate der Wert 999 
eingegeben wird. 


ÜBUNGEN 

1. Tippen Sie das Programm aus Bild 11.1 ein und speichern Sie es 
auf Diskette ab. Wir werden es spater noch einmal brauchen. 

2. Das Programm in Bild 11.1 stellt eine sehr primitive Variante 
der zahlreich angebotenen Berechnungsprogramme dar. Diese Art 
von Programmen bietet die Möglichkeit, nach dem Eingeben einer 
Reihe Bedingungen mit der 'Was wäre, wenn ..'-Methode, die 
Wirkungen zu sehen, die durch die Änderung verschiedener Para¬ 
meter entstehen. überlegen Sie sich, welche 'Was wäre, 
wenn...s' für Sie interessant sein könnten ( z.B. Was wäre, 
wenn ... sich mein Gehalt verdoppelt!? oder ähnliches). 

3. Entwerfen Sie einen Algorithmus, mit dem Sie Ihre 'Was wäre, 
wenn'-Frage beantworten können und untersuchen Sie, ob Sie un¬ 
ser BeispielProgramm entsprechend ändern können. 


EINE REALISTISCHERE SIMULATION 

Das zuletzt vorgestellte Programm ist sehr primitiv und nicht ge¬ 
rade besonders realistisch. Es ist bereits jedem Betriebswirt¬ 
schaftstudenten bekannt, daß es eine Beziehung zwischen dem 
Preisanstieg und dem Umsatz gibt. Normalerweise sinken bei einer 
Preiserhöhung die Verkaufs zahlen etwas ab. Dies wird durch die 
folgende Formel ausgedrückt: 

Q = a - bP 
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hierin bedeuten: 


Q 


Verkauf sstück zah1 


a 


Preis, zu dem der Artikel nicht mehr absetzbar ist 


b 


Koeffizient der Nachfragekurve 


P 


Marktpreis des Artikels 


Setzen wir als Beispiel einmal folgende Zahlen ein: 


Q = 5000 - 10P 


( 11 . 2 ) 


Diese Gleichung zeigt, daß wir bei einem Preis von DM 250/Artikel 
2500 Stück verkaufen können. Erhöhen wir den Preis auf DM 500, so 
verkaufen wir nichts mehr! (Q = 5000 - 10*500) 

Mit Gleichung 11.2 und einem Preis von DM 250 läßt sich der Um¬ 
satz U wie folgt ermitteln: 

U = Q * P 
= 2500 * 250 
= 625000 


mit einer Inflationsrate von 10% wäre folgender Umsatz zu er¬ 
warten: 

U = (5000 - 10 * 275) * 275 
U = 618750 


Die Anwendung des Gesetzes der abnehmenden Nachfrage zeigt uns 
die Verringerung des Einkommens, bedingt durch die Abnahme der 
Verkaufsstückzahl. Eine Preiserhöhung von 10% verursacht einen 
Umsatzrückgang um DM 6250. 


Unser Programm kann mit den folgenden Zeilen den gezeigten Effekt 
berücksichtigen: 
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1120 DATA 250,6200,2000,250,130 
1421 LET TEMP=X(1) 

1424 GOSUB 2200 
1665 GOSUB 2200 
1715 GOSUB 2200 

2200 REM AUSWIRKUNGEN DER INFLATION 
2210 ' 

2220 LET X(1)=TEMP#P(1) 

2230 LET Q=5000-10#X(1) 

2240 LET X(1)=Q*X(1) 

2250 RET 

Das Unterprogramm, das in Zeile 2200 beginnt, berechnet die Aus¬ 
wirkungen einer Preiserhöhung. Die Preiskorrektur muß aus den 
Zeilen 1810 und 1860 herausgenommen werden, weil diese schon vom 
Unterprogramm vorgenommen wird. Sie finden mit Hilfe der neuesten 
Programm Version schnell heraus, daß der Umsatz von DM 616420 bei 
einer Inflationsrate von 10% auf DM 610170 fallen wird. Die vor¬ 
her benutzte Version zeigte dagegen einen Umsatzanstieg'. 


EINIGE ERGÄNZENDE IDEEN 

Offensichtlich müßte die DATA-Anweisung in Zeile 1120 geändert 
werden, um die Art des Betriebes zu berücksichtigen. Oder, um ein 
anderes Beispiel zu nennen, wenn die Produktionskosten annähernd 
konstant bleiben, so wäre dies im Unterprogramm (2200) zu ändern. 
Ähnliches gilt für alle anderen Werte. Personalkosten und Gemein¬ 
kostensatz ändern sich ebenfalls mit der Stückzahl, was mit einer 
Anpassung der X(3)- und X(5)-Werte unseres Programms zu berück¬ 
sichtigen wäre. 

Die Gleichungen, nach denen Sie diese Korrekturen durchführen, 
müssen Sie aus Ihrer Erfahrung mit Ihrem Betrieb heraus entwik- 
keln. 

Werbekosten haben sicherlich eine positive Wirkung auf Ihr Ver¬ 
kaufsergebnis und gehen andererseits natürlich in die Produktko¬ 
sten mit ein. Ist Ihre Werbung besonders wirksam, wäre es sogar 
möglich, daß die Gleichung in Zeile 2230 geändert werden muß. 
Normalerweise erhöht Werbung die bei unverändertem Preis verkauf¬ 
te Stückzahl. Wenn Sie hierfür einen mathematisch faßbaren Aus¬ 
druck finden, haben Sie einigen Leuten eine Menge voraus. Im Nor¬ 
malfall werden die Werbekosten auf einen prozentualen Anteil des 
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Umsatzes festgelegt. Welchen Weg Sie hier auch immer beschreiten, 
die Berechnung von X(4) muß in das Unterprogramm mit eingebaut 
werden. 

Die aufgezeigten Ideen sind natürlich nicht nur zur Simulation 
der Einkommensentwicklung verwendbar. Langdauernde Bau- und Ent¬ 
wicklungsprojekte werden genauso Ihre Bilanz beeinflussen wie ei¬ 
ne geänderte Produkt palet te oder die Kredit zinsen. 

Hier gibt es eine nahezu unüberschaubare Fülle möglicher Anwen¬ 
dungen, deren Realisierung nur von Ihrer Phantasie und von den 
täglichen 24 Stunden eingeschränkt ist. 


ÜBUNGEN 

1. Versuchen Sie einige der gerade aufgezeigten Ideen innerhalb 
unseres Programms zu verwirklichen. 

2. Eine Simulation muß sich nicht auf wenige Werte beschränken. 
Entwickeln Sie einen Algorithmus, der vierteljährliche Aussa¬ 
gen über die zu erwartenden Entwicklungen liefert. Organisie¬ 
ren Sie die Ausgabe so, daß die neuen Werte geordnet nach 
Vierteljahren in Spalten nebeneinander stehen. 

3. überlegen Sie, wie der Algorithmus aus 2. geändert werden muß, 
wenn die Ausgangswerte aus einer Disketten-Datei kommen sol¬ 
len. 

4. Damit die ermittelten Werte grafisch dargestellt werden kön¬ 
nen, sollen sie zunächst auf der Diskette abgespeichert wer¬ 
den. Die dabei entstehende Datei soll mit unserem Grafikpro¬ 
gramm ausgewertet werden. Entwickeln Sie dafür einen Algorith¬ 
mus. 


DIE CHAIN-ANWEISUNG 

Die vierte Aufgabe unseres letzen Übungsblocks hat uns vor Augen 
geführt, daß es manchmal sehr schön wäre, von einem Programm in 
ein anderes zu können, ohne jedesmal mit LOAD und RUN zu arbei¬ 
ten. - Die CHAIN-Anweisung macht dies möglich. 
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CHAIN "Dateiname" 

ist die allgemeinste Form dieses Befehls. Er kann sowohl inner¬ 
halb eines Programms als auch im Befehlsmodus verwendet werden. 
Weil CHAIN nur auf Basic-Programme angewendet werden kann, muß 
der Dateityp .xxx nicht angegeben werden. Unser Grafikprogramm 
könnte mit der letzten Zeile der Simulation geladen werden: 


2300 CHAIN "PLOT" 

B-80 lädt daraufhin das PLOT-Programm in den Speicher und führt 
es automatisch aus. CHAIN kann also dazu dienen, von Programm zu 
Programm zu springen, ohne in den Befehlsmodus zu müssen. 

CHAIN lädt ein Programm in den Speicher und überschreibt 
dabei das Programm, in dem der Befehl stand. Das alte 
Programm wird also durch das neu geladene ersetzt und 
geht verloren. 

Sie sollten vor einem Probelauf des Programms immer erst mit SAVE 
eine Sicherungskopie auf der Diskette erstellen. Es ist ziemlich 
frustrierend, nach stundenlanger Arbeit an einem Programm festzu¬ 
stellen, daß eine CHAIN-Anweisung alle Eingaben mit einer auf der 
Diskette befindlichen Datei überschrieben hat. Meistens fällt ei¬ 
nem nämlich erst dann ein, daß man das Abspeichern vergessen 
hat, wenn der CHAIN-Befehl gerade ausgeführt wird. 

Der CHAIN-Befehl kann auch von anderen Laufwerken Programme 
laden: 


2300 CHAIN "B:PL0T" 

oder: 

1000 LET D$="B:" 

2300 CHAIN D$+"PL0T" 
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oder: 

1000 LET D$="C: M 
1010 LET P$="PLOT" 

2300 CHAIN D$+P$ 


Alle drei Varianten laden PLOT in den Speicher und führen es aus. 
Der Programmname kann also auch mit einer Zeichenkette zugeordnet 
werden. 

Mit Sicherheit wird der phantasievolle Leser jetzt schon wissen, 
was kommt: Wir sind in der Lage, von einem Menü aus verschiedene 
Programme anzuwählen. Die notwendigen Daten können dabei aus ei¬ 
ner Disketten-Datei stammen. (Es gibt aber auch noch eine andere 
Methode, Daten zu übergeben, mit der wir uns am Ende des Kapitels 
noch beschäftigen werden.) 

Eine Liste von angebotenen Funktionen kann nach einem ON GOTO-Be- 
fehl auf verschiedene Programme zugreifen. Verwenden wir am Ende 
eines jeden Funktionsprogramms eine CHAIN-Anweisung, die wieder 
das Menü aufruft, so erhalten wir ein extrem leistungsfähiges 
Programmsystem. Der Programmbenutzer muß sich nicht mehr um Pro¬ 
grammnamen oder Formalismen irgendwelcher Art kümmern, und wir 
werden weniger Zeit brauchen, um Fragen zur Programmbenutzung zu 
beantworten. 


ÜBUNGEN 

1. Schreiben Sie ein Menü, das Ihnen den Zugriff auf alle bisher 
geschriebenen Programme erlaubt. 

2. Ergänzen Sie alle im Menü befindlichen Programme um eine 
CHAIN-Anweisung, die die Rückkehr zum Menü erlaubt. 
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DATENÜBERGABE ZWISCHEN PROGRAMMEN 

Innerhalb eines Programmsystems fallen oft Zwischenergebnisse an, 
die im nächsten Programm weiterverarbeitet werden sollen. Verwen¬ 
den wir CHAIN nur in der einfachsten Form, müssen wir jedesmal 
eine Disketten-Datei erstellen, die die Zwischenergebnisse be¬ 
reithält. B-80 hält zu diesem Zweck noch eine andere Möglichkeit 
bereit. 

Nehmen wir an, wir hätten eine Matrix mit dem Namen PROFIT, die 
von einem Programm mit Daten aufgefüllt wird und die vom nächsten 
Programm ausgewertet werden soll. Der einfachste Weg, die Daten 
zu übergeben, wäre es, sie einfach im Speicher zu lassen. Mit 

COMMON (Liste der Variablennamen) 

wird uns dieser Wunsch erfüllt. In unserem Beispiel sähe das so 
aus: 


100 COMMON PROFITO 
120 CHAIN "PR0G2" 

Achten Sie darauf, daß Namen von Matrizen von Klammern gefolgt 
sein müssen, damit alle Variablen erhalten bleiben. Ansonsten 
geht es noch einfacher: 


100 COMMON KOSTEN 
120 CHAIN "PR0G2" 


Das B-80-Handbuch schreibt vor, die COMMON-Anweisung an den Pro¬ 
grammanfang zu setzen. Es scheint aber nicht wirklich notwendig 
zu sein. Meiner Erfahrung nach kann sie in jeder beliebigen Pro¬ 
grammzeile stehen, übersichtlicher ist es aber bestimmt am Pro¬ 
grammanfang. 

Was tun, wenn alle in einem Programm verwendeten Variablen wei¬ 
terzugeben sind? Keine Angst, Sie müssen keine Riesenliste er¬ 
stellen. Sie können den ALL-Zusatz verwenden: 


100 CHAIN "PR0G2 M ,ALL 
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ALL darf nicht zusammen mit COMMON verwendet werden. Es soll 
nicht verschwiegen werden, daß COMMON und ALL einige Probleme 
verursachen können. Stellen wir uns vor, was geschieht, wenn das 
zweite Programm vor dem ersten ausgeführt wird. Der Programmlauf 
wird mit großer Sicherheit Unsinn liefern, was je nach Problem¬ 
stellung vom Benutzer nicht unbedingt bemerkt werden muß. Dennoch 
handelt es sich um sehr nützliche Befehle. 


ÜBUNGEN 

1. übergeben Sie mit Hilfe der Befehle CHAIN und COMMON die 
Steuerzeichen für den Bildschirm an das nächste Programm. 

2. Schreiben Sie ein Unterprogramm, das überprüft, ob vom Vorgän¬ 
gerprogramm mit COMMON Daten übergeben wurden (Hinweis: Nehmen 
Sie an, daß alle Werte ungleich Null sein müssen) 

3. Wie würden Sie weiter verfahren, wenn Sie in 2. feststellen, 
daß keine Daten vorhanden sind? 
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CP/M UND BASIC-80 


Bis jetzt blieb das CP/M-Betriebssystem unbemerkt im Hintergrund 
und B-80 erntete den ganzen Ruhm. Dabei hat CP/M den Dialog zwi¬ 
schen Ihnen und B-80 abgewickelt. Deshalb wollen wir uns ein 
klein wenig damit beschäftigen. Natürlich ist es unmöglich, in¬ 
nerhalb eines Kapitels CP/M abzuhandeln. Hierzu ist mindestens 
ein ganzes Buch notwendig. Sie finden im Handel ausreichend Lite¬ 
ratur, die CP/M ausführlich erklärt. 

Es ist der Sinn dieses Kapitels, den Programmierer soweit mit 
CP/M vertraut zu machen, wie er es für die Anwendung von Basic 
braucht. 


WAS IST CP/M ? 

CP/M ist ein sogenanntes Betriebssystem, das alle Rechnerfunktio- 
nen steuert. Es kann mit den Mikroprozessoren 8080, 8085 und Z-80 
Zusammenarbeiten. Weil CP/M auch alle Zugriffe auf die Disketten 
verwaltet, bezeichnet man es auch als Disketten-Betriebssystem 
(engl, disk operating System, abgekürzt DOS). 

B-80 kommuniziert mit Ihnen über CP/M. Schauen wir uns an, was 
geschieht, wenn Sie eine Taste drücken. Als erstes wird in der 
CPU ein ASCII-Code entsprechend der gedrückten Taste erzeugt. An¬ 
schließend übergibt die CPU den Code dem Bild schirm teil, der den 
Code in ein für Sie sichtbares Zeichen umwandelt. Die Vorschrift, 
nach der das alles geschieht, ist in CP/M abgelegt. Der Vorgang 
läuft sehr schnell ab, weshalb Sie glauben, "auf dem Schirm zu 
schreiben". CP/M ist in vier Teile untergliedert: 

1. Das BIOS (= Basic Input/Output Module) 

2. Das BDOS (= Basic Disk Operating System) 

3. Der CCP (= Console Command Processor) 

4. Die TPA (= Transient Program Area) 

Innerhalb der Klammern finden Sie die englischen Ausdrücke für 
die zuvor verwendeten Abkürzungen. Die Bezeichnung Basic hat hier 
nichts mit der Programmsprache zu tun. Gemeint ist damit, daß es 
sich um fundamentale Programmeinheiten handelt. 
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DAS BIOS 

BIOS ist der Teil von CP/M, in dem alle Ein- und Ausgabeoperatio¬ 
nen durchgeführt werden. Darunter fällt der gesamte Verkehr zwi¬ 
schen Tastatur, Bildschirm, Disketten und anderen im Rechner vor¬ 
handenen Schnittstellen. BIOS ist systemabhängig. Das heißt, daß 
hier die Bedingungen der Rechner Umgebung berücksichtigt wurden. 
(Ein analoges Beispiel hierfür finden Sie in unseren Basic-Pro- 
grammen, wo wir die Eigenheiten einzelner Bildschirme berücksich¬ 
tigt haben.) Alle anderen Teile von CP/M können in gleicher Art 
und Weise auf beliebigen Rechnerstrukturen eingesetzt werden. 

DAS BDOS 

BDOS übernimmt die logische Verwaltung der Disketten-Funktionen. 
Es greift seinerseits auf die rechnerabhängigen Routinen aus dem 
BIOS zu. Es kann Dateien eröffnen, lesen, schreiben und schlies- 
sen. B-80 greift auf das BDOS zurück, wenn es Dateioperationen 
auszuführen hat. 

DER CCP 

CCP ist der Teil von CP/M, in dem eingegebene Befehle verarbeitet 
werden. Das DIR-Kommando in Kapitel eins ist so ein Befehl. 


DIE TPA 

Die TPA ist der Speicherbereich, in dem die eigentlichen Benut¬ 
zerprogramme laufen. Immer, wenn Sie MBASIC eingeben, wird B-80 
in die TPA geladen und ausgeführt. Jedes Programm, das Sie in Ba¬ 
sic schreiben, beginnt dort, wo B-80 zu Ende ist. 

Bild 12.1 zeigt Ihnen in grafischer Form eine Speichertabelle mit 
der Aufteilung des Speichers für CP/M. Die tatsächliche Lage des 
Betriebssystems hängt von der Speicherausstattung Ihres Rechners 
ab. In der Darstellung sind sogenannte hexadezimale (auch sedezi- 
male) Zahlen verwendet worden (Zahlen zur Basis 16). Die Auftei¬ 
lung wurde für 48 KByte Speicher gezeichnet. Der untere Teil der 
TPA ist mit Basic belegt. Weil der CCP nicht zusammen mit Basic 
benutzt werden kann, endet der nutzbare Speicherbereich am Anfang 
von BDOS. Viele der von CCP verarbeiteten Befehle sind in anderer 
Form auch in Basic enthalten. Als Beispiel seien hier nur DIR und 
FILES sowie ERA und KILL genannt. 
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Speicheranfang 


Speieherende 
—> 


+-+ 



xxxxxxxxxxxxx ! ! ! ! 


TPA XXXXXXXXXXXXX ! CCP ! BDOS ! BIOS ! 

xxxxxxxxxxxxx ! ! ! ! 


+-+• 


+-+-+-+ 


0 100 


A400 AC00 BAOO 


Bild 12.1 Speicheraufteilung für CP/M 


Der interessierte Leser sollte die restlichen CCP-Befehle in sei¬ 
nem CP/M-Handbuch nachschlagen. 


WIE MAN CP/M BENUTZT 

Meistens werden alle Teile von CP/M im sogenannten RAM (= Random 
access memory, = Speicher wahlfreien Zugriffs, Schreib/Lesespei¬ 
cher) abgelegt. Diese Speicherart 'vergißt' die in ihr abgelegte 
Information, wenn der Strom ausgeschaltet wird. Jedesmal, wenn 
Sie Ihren Rechner einschalten, muß das Betriebssystem von den er¬ 
sten zwei Spuren Ihrer Diskette neu geladen werden. Damit taucht 
unsere erste Frage auf. Wie kann man das Betriebssystem auf eine 
neue Diskette schreiben? 


SYSGEN 


Zu CP/M gehört eine Datei, mit deren Hilfe man das Betriebssystem 
von einer Diskette auf eine andere kopieren kann. Der Dateiname 
ist SYSGEN.COM. Befindet sich in Laufwerk A eine Betriebssystem- 
Diskette und in B eine neue, so können Sie mit 


A >SYSGEN 


das System auf die neue Diskette kopieren. Die 'Quelle' (engl, 
source) ist die Diskette in Laufwerk A, das 'Ziel' (engl, desti- 
nation) ist die Diskette in Laufwerk B. Nachdem der Vorgang be¬ 
endet wurde, wird der Benutzer mit "function complete" davon un¬ 
terrichtet. 
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DER KALTSTART 

Der Ladevorgang nach dem Einschalten des Rechners, der CP/M in 
den Speicher bringt, wird als Kaltstart bezeichnet. Nahezu alle 
Rechner verfügen über eine RESET-Taste. Nachdem sie betätigt wur¬ 
de, ist ebenfalls ein Kaltstart erforderlich. Mit RESET erhalten 
Sie in jedem beliebigen Systemzustand die Kontrolle über den 
Rechner zurück. 

RESET sollte nur dann angewendet werden, wenn sich der Rech¬ 
ner 'aufgehängt' hat. Sie laufen sonst Gefahr, Daten zu 
verlieren. 

DER WARMSTART 

Nehmen Sie an, ein großes Programm hatte den CCP-Teil überlagert, 
und nach dem Programmende wollen Sie CP/M wieder benutzen. Dies 
ist jetzt aber nicht mehr unmittelbar möglich, weil CCP ja über¬ 
schrieben wurde. Deshalb wird mit Hilfe von BIOS ein Teil des Be¬ 
triebssystems wieder von der Diskette geladen. Dies geschieht 
auch, wenn Sie CTRL C eingeben. Dieser Vorgang wird als Warmstart 
bezeichnet. 

Wichtig: Immer, wenn Sie eine Diskette wechseln, muß 
ein Warmstart durchgeführt werden. 

CP/M ermittelt eine Prüf summe für jede Diskette. Sie wird bei je¬ 
dem Schreibzugriff überprüft. Stimmt die Prüfsumme nicht mehr, 
dann verweigert CP/M den Schreibvorgang und schützt dadurch die 
Diskette. 

Selbstverständlich ist ein Kalt- oder Warmstart nur durchführbar, 
wenn sich auf der Diskette im Laufwerk A ein Betriebssystem be¬ 
findet. 

STAT 

STAT fertigt eine 'Dateienstatistik' an. Die Größe der Dateien, 
ihr Name und ihr Dateityp werden ebenso angegeben wie der Status 
einer Datei (R/0 = read only, die Datei kann nur gelesen, aber 
nicht überschrieben werden, R/W = read/write, die Datei kann 
überschrieben werden). STAT kann mit seinen Zusätzen sehr viel¬ 
seitig eingesetzt werden. 
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STAT TEST.BAS 

teilt uns mit, wie groß TEST.BAS ist und in welchem Status sich 
die Datei befindet. 

STAT TEST.BAS $R/0 

ändert den Status von TEST.BAS in den Nur-Lese-Zustand. Das 
heißt, die Datei kann mit ERA nicht gelöscht und nicht über¬ 
schrieben werden. Mit 

STAT TEST.BAS $R/W 

erhält die Datei wieder ihren alten Status. Mittels STAT können 
noch einige andere Informationen von der Diskette abgerufen wer¬ 
den. Sie finden in Ihrem CP/M-Handbuch mehr darüber. 

PIP 

PIP (= peripherial interchange program) ist ein Kopierprogramm, 
mit dem Sie Dateien und Dateigruppen von einer Diskette auf eine 
andere übertragen können. Allgemein schreiben wir: 

PIP Zieldatei = Quelldatei 

Um TEST.BAS von Laufwerk A nach Laufwerk B zu kopieren, benutzen 
wir diese Sequenz: 

PIP B:=TEST.BAS[OV] 

Das 0 innerhalb der eckigen Klammern sagt aus, daß es sich bei 
TEST.BAS um eine binäre Datei handelt. Mit V wird nach dem Ko¬ 
piervorgang die Zieldatei mit der Quelldatei verglichen. Sollten 
beim Kopieren Fehler aufgetreten sein, wird dies hier entdeckt. 
Der Zusatz AOVÜ macht den Kopiervorgang sicherer, aber leider 
auch langsamer. Sollen alle Basic-Programme auf die Diskette in 
Laufwerk B kopiert werden, verwenden wir folgenden Befehl: 

PIP B:=*.BAS[OV] 

Wie bei STAT gibt es auch für PIP eine sehr große Zahl von mögli¬ 
chen Befehlen. Sie sollten auch hier Ihr CP/M-Handbuch zu Rate 
ziehen. Empfehlenswert ist dies auch, wenn Sie mehr über die an¬ 
deren Hilfsprogramme von CP/M wissen wollen. 
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ÜBUNGEN 

1. üben Sie sich im Gebrauch aller gerade diskutierten CP/M-Be- 
fehle und der Hilfsprogramme SYSGEN, STAT und PIP. Verwenden 
Sie dazu Disketten, auf denen sich keine für Sie wertvollen 
Dateien befinden. 


DRUCKERAUSGABE OHNE LPRINT 

Obwohl es in CP/M eine Art Schalter zwischen Bildschirm und Druk- 
kerausgabe gibt, wird von der Mehrzahl die LPRINT-Anweisung ver¬ 
wendet . 

100 INPUT "BILDSCHIRM- ODER DRUCKERAUSGABE (B/D)",T$ 

110 IF T$="B" THEN PRINT "HALLO" ELSE LPRINT "HALLO" 

120 END 

Die gezeigte Methode ist gar nicht so schlecht anzuwenden, wenn 
nur sehr wenig ausgedruckt werden muß. Bei sehr großen Programmen 
kann sie jedoch sehr schnell zu einem Alptraum werden. Der einzig 
vernünftige Weg besteht darin, PRINT und LPRINT parallel anzu¬ 
wenden . 

Die Notwendigkeit, vor jeder Ausgabe zu überprüfen, ob der Druk- 
ker oder der Bildschirm der Empfänger des Ausdrucks sein soll, 
erhöht - gepaart mit den verdoppelten Ausgabeanweisungen - den 
Programmier auf wand erheblich. Wir wollen uns deshalb überlegen, 
ob uns unser Wissen über CP/M nicht weiterhelfen kann. 

Wir haben vorher festgestellt, daß alle Ein/Ausgabeoperationen 
vom BIOS-Modul ausgeführt werden. B-80 muß also ebenso wie CP/M 
auf dieses Modul zurückgreifen. Im CP/M-Handbuch können Sie se¬ 
hen, daß das BIOS mit einer Tabelle von Ein/Ausgaberoutinen be¬ 
ginnt. 10 Byte nach dem Anfang von BIOS beginnt die Bildschirm¬ 
routine und 3 Byte weiter steht das Druckerausgabe-Unterprogramm. 
Immer wenn B-80 einen PRINT-Befehl ausführt, muß es auf die Ad¬ 
resse BIOS+10 zugreifen. Ebenso verhält es sich mit LPRINT, nur 
daß die Adresse hier BIOS+13 lautet. 
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Bei einem normalen Programmstart benutzt B-80 immer den Schirm 
als Ausgabemedium. Das heißt, daß irgendwo innerhalb von B-80 die 
Adresse BIOS+IO gespeichert sein muß. Wären wir nun in der Lage, 
an diese Stelle einfach als Adresse BIOS+13 zu schreiben, so wür¬ 
de die Ausgabe auf dem Drucker landen. Wir müssen eigentlich nur 
noch den Wert BIOS+13 kennen und die Stelle finden, an der wir 
ihn ablegen müssen.. Dazu brauchen wir einen neuen Befehl: 

PEEK(Speicheradresse) 

Dieser Befehl gibt uns den numerischen Wert des Inhalts einer 
Speicheradresse zurück. Weil die von uns verwendeten Mikroprozes¬ 
soren Adressen mit 16 Bit Länge speichern, haben wir 2 Byte zu 
vergleichen, damit wir eine vollständige Adresse erhalten. 

100 REM 20. MAI 83 
110 REM SUCHEN DER AUSGABEADRESSEN 
120 ' 

130 ' 

140 LET LOESCH$=CHR$(27)+CHR$(42) 

150 ' 

160 REM AUFFINDEN DER 1. BIOSADRESSE 
170 ' 

180 LET STARTBI0S=(PEEK(2)*256)+PEEK(1) 

190 ' 

200 REM BILDSCHIRM UND DRUCKERADRESSE HOLEN 
210 ' 

220 LET DADR=STARTBIOS+13 
230 LET BADR=STARTBIOS+10 
240 ' 

250 REM INHALT DER ADRESSE HOLEN 
260 ' 

270 LET DBYTE=PEEK(DADR) 

280 LET BBYTE=PEEK(BADR) 

290 ' 

300 REM HÖHERWERTIGES ADRESSBYTE HOLEN 
310 ' 

320 LET DBYTE1=PEEK(DADR+1) 

330 LET BBYTE1=PEEK(BADR+1) 

340 ' 

350 REM BEGINN DER SUCHE 
360 ' 

370 PRINT LOESCH$ 

380 PRINT "WARTEN SIE EINIGE MINUTEN" 
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390 ' 

400 FOR I%=16000 TO 25000 

410 IF PEEK(I5Ü=BBYTE AND PEEK(I%+1)=BBYTE1 THEN 510 
420 NEXT I* 

430 ' 

440 REM KEINE ÜBEREINSTIMMUNG 
450 ' 

460 PRINT "SCHLECHTE NACHRICHT: NICHTS GEFUNDEN" 

470 GOTO 730 
480 ' 

490 REM GEUNDENÜ! 

500 ' 

510 LET F=l% 

520 PRINT LOESCH$ 

530 PRINT "ADRESSE: " F 
540 PRINT 

550 PRINT "NIEDERWERTIGES ADRESSBYTE CRT: " BBYTE 

560 PRINT "HÖHERWERTIGES ADRESSBYTE CRT: " BBYTE1 

570 PRINT 

580 PRINT "NIEDERWERTIGES ADRESSBYTE DRUCKER: " DBYTE 

590 PRINT "HÖHERWERTIGES ADRESSBYTE DRUCKER: " DBYTE1 

600 ' 

610 OPEN ”R",#1,"UMSCHALTUNG" 

620 FIELD #1,2 AS A$,2 AS B$,2 AS C$,2 AS D$,2 AS E$ 

630 LSET A$=MKI$(F) 

640 LSET B$=MKI$(BBYTE) 

650 LSET C$=MKI$(BBYTE1) 

660 LSET D$=MKI$(DBYTE) 

670 LSET E$=MKI$(DBYTE1) 

680 PUT #1,1 
690 CLOSE #1 
700 ' 

710 REM PROGRAMMENDE 
720 ' 

730 END 

Bild 12.2 Adreßsuche für Umschaltprogramm Bildschirm - Drucker 

Das Programm in Bild 12.2 findet für uns die Stelle, an der wir 
die Adresse austauschen müssen. In Zeile 180 wird der Inhalt der 
Speicherstellen 1 und 2 ausgelesen. In diesen beiden Byte finden 
wir die Anfangsadresse von BIOS (das zweite Byte muß mit 256 mul¬ 
tipliziert werden, damit die dezimale Wertigkeit stimmt). In Zei¬ 
le 220 erhält die Variable DADR die Adresse der Druckerausgabe- 
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Routine zugewiesen. Das gleiche geschieht in Zeile 230 mit der 
Adresse der Schirmausgabe-Routine. In den Zeilen 270 und 280 wer¬ 
den die Inhalte von DADR und BADR byteweise auf DBYTE, DBYTE1, 
BBYTE und BBYTE1 verteüt. 

Weil wir momentan den Bildschirm verwenden, müßten wir eine Über¬ 
einstimmung mit der Adresse BIOS+10 finden. Die Schleife in den 
Zeilen 400 bis 420 durchsucht den Speicher. Sie fangt mit der 
Adresse 16000 an, um die Suchzeit zu verkürzen (theoretisch müßte 
die gesamte TPA abgesucht werden). In Zeile 510 erhält F die 
Adresse, wo die Übereinstimmung gefunden wurde. In den Zeilen 520 
bis 680 werden die Adreßwerte ausgegeben und zur späteren Verwen¬ 
dung in einer Datei abgelegt. 

Wenn wir den Inhalt von BBYTE an die Adresse F und 
BBYTE+1 an die Adresse F+l schreiben, wird die Ausgabe 
auf den Bildschirm gelenkt. Nehmen wir anstelle von 
BBYTE die DBYTE-Werte, dann erhält der Drucker die Aus¬ 
gabewerte . 

Mit der gerade entwickelten Methode können wir zwischen dem Bild¬ 
schirm und dem Drucker hin- und herschalten. Sie läßt sich aller¬ 
dings nur auf Standard-Implementationen von CP/M und B-80 anwen¬ 
den. Für alle Sonderversionen liefert das Programm in Bild 12.2 
keine vernünftigen Werte, oder es wird (meistens) die Nachricht 
ausgegeben, daß die Adressen nicht gefunden werden konnten. 

TESTEN DER BILDSCHIRM-, DRUCKERUMSCHALTUNG 

Mit dem Programm in Bild 12.3 können wir die vorher gefundenen 
Werte testen. In den Zeilen 180 bis 260 holen wir uns die Werte 
aus der Disketten-Datei. Anschließend fragt das Programm, ob die 
Ausgabe auf dem Drucker oder auf dem Bildschirm gewünscht wird. 
In Zeile 370 wird dann entschieden, ob wir umschalten müssen oder 
nicht. Soll die Ausgabe auf den Drucker, so wird die Adresse mit 
der POKE-Anweisung geändert. 

POKE Speicheradresse,dezimaler Wert (0 - 255) 

Die Variable ADRESSE beinhaltet die Speicheradresse, die verän¬ 
dert werden muß. Weil eine Adresse beim verwendeten Prozessor im¬ 
mer zweibytig ist, müssen wir POKE auch noch auf ADRESSE+1 anwen¬ 
den. In den Zeilen 390 bis 430 wird die Umschaltung getestet. 
Nachdem eine Druckerausgabe durchgeführt wurde, wird wieder zu- 
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rück geschaltet, damit wieder mit dem Bildschirm gearbeitet werden 
kann. Treten bei dieser Operation Fehler auf, können wir meist 
nur noch mit RESET und einem Kaltstart die Kontrolle über den 
Rechner zurückerhalten. 


100 REM 20. MAI 83 

110 REM TEST DER CRT - DRUCKERUMSCHALTUNG 
120 ' 

130 ' 

140 LET LOESCH$=CHR$(27)+CHR$(42) 

150 ' 

160 REM ADRESSEN AUS DER DATEI HOLEN 
170 ' 

180 OPEN "R",#1,"UMSCHALTUNG",10 

190 FIELD #1,2 AS A$,2 AS B$,2 AS C$,2 AS D$,2 AS E$ 

200 GET #1,1 

210 LET ADRESSE=CVI(A$) 

220 LET BBYTE=CVI(B$) 

230 LET BBYTE1=CVI(C$) 

240 LET DBYTE=CVI(D$) 

250 LET DBYTE1=CVI(E$) 

260 CLOSE #1 
270 ' 

280 REM TESTBEGINN 
290 ' 

300 PRINT LOESCH$ 

310 PRINT "AUSGABE AUF BILDSCHIRM ODER DRUCKER(B/D)"; 

320 P$=INPUT$(1) 

330 PRINT P$ 

340 ' 

350 REM UMSCHALTUNG 
360 ' 

370 IF P$="D" THEN POKE ADRESSE,DBYTE:POKE ADRESSE+1,DBYTE1 
380 ' 

390 PRINT 
400 PRINT 

410 PRINT "UMSCHALTTEST FUER 

420 IF P$="D" THEN PRINT "DRUCKER" ELSE PRINT "BILDSCHIRM" 
430 ' 

440 ' 

450 REM RUECKSETZEN AUF DEN AUSGANGSZUSTAND 
460 ' 

470 IF P$="D” THEN POKE ADRESSE,BBYTE:POKE ADRESSE+1,BBYTE1 
480 ' 
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490 REM PROGRAMMENDE 
500 ' 

510 END 


Bild 12.3 Testen der Ausgabeumschaltung 

Wir haben nunmehr zwei Methoden, mit denen Werte auf den Drucker 
ausgegeben werden können. Welche von beiden für Sie vorteilhafter 
ist, müssen Sie anhand Ihrer Aufgabe entscheiden. 


DIE MERGE-ANWEISUNG 

Mit komplexer werdenden Programmen wird die Umschaltmethode si¬ 
cherlich häufiger von Ihnen angewendet werden als LPRINT. Es ist 
deshalb sinnvoll, das Programm aus Bild 12.3 als Unterprogramm 
anzuwenden. Damit wir ein solches Unterprogramm nur einmal ein¬ 
tippen müssen und es für uns in jedem Programm ohne weitere Ar¬ 
beit einsetzbar wird, hält B-80 eine Funktion bereit, mit der wir 
Zeilen aus einem anderen Programm in den. Text eines neuen Pro¬ 
gramms einfügen, bzw. an das Ende des neuen Programms anhängen 
können. Um mit dem neuen Befehl MERGE zu arbeiten, speichern wir 
das Programm aus Bild 12.3 auf der Diskette: 

SAVE "SCH ALTER", A 

Der Zusatz A am Ende der SAVE-Anweisung bewirkt, daß die Pro¬ 
grammzeilen nicht in einem komprimierten binären Format, sondern 
im ASCII-Code gespeichert werden (dadurch könnten wir mit einem 
Textverarbeitungsprogramm wie z.B. WORDSTAR diesen Text ändern 
und ergänzen). 

Ein warnendes Wort: 

Programme, die mit MERGE in andere Programme eingebracht 
werden, überschreiben alle Zeilen gleicher Nummer! 

Wenn Sie für das SCHALTER-Programm die Zeilen 100 bis 300 verwen¬ 
den und Ihr neues Programm die gleichen Zeilennummern benutzt, 
dann haben Sie nach MERGE nur noch SCHALTER im Speicher. Dieses 
Problem kann auf einfache Weise mit RENUM umgangen werden. Sie 
könnten vor dem Abspeichern von SCHALTER die Anweisung 

RENUM 20000 
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eingeben. Die Zeilennummern werden damit in den Bereich beginnend 
mit 20000 verschoben. Mit dem Befehl 

MERGE "SCHALTER" 

können wir nun ohne Probleme SCHALTER ans Ende unseres neuen Pro¬ 
gramms laden. Als letzte Zeile muß ein RETURN-Befehl als Unter¬ 
programmabschluß stehen. Mit GOSUB 20000 verfügen wir dann über 
die Umschaltfunktion. 


EIN PROGRAMMKERN 

Sie werden sehr schnell herausfinden, daß eigentlich jedes Ihrer 
Programme einen Satz immer wiederkehrender Funktionen wie die 
Cursor-Positionierung, das Löschen des Bildschirms und die Druk- 
kerumschaltung beinhaltet. Sie können die Arbeitszeit, die Sie in 
ein neues Programm investieren müssen, wesentlich verkürzen, wenn 
Sie alle diese Funktionen in einem Kern zusammenfassen und auf 
der Diskette speichern. Sie müssen sich dann nur noch an die von 
Ihnen geschaffenen Konventionen bei der Anwendung der Unterpro¬ 
gramme des Kernsystems halten. Es bleibt Ihnen dann erspart, je¬ 
desmal die gleichen Sequenzen neu zu 'erfinden' und die Fehler 
darin zu suchen. 


ÜBUNGEN 

1. Schreiben Sie ein Kemprogramm, das alle häufig verwendeten 
Funktionen beinhaltet (Schirm löschen, Cursor positionieren, 
Druckerumschaltung,...) und das Zeilennummem verwendet, die 
außerhalb der von Ihnen gewöhnlich benutzten liegen. Speichern 
Sie das Programm ab und verwenden Sie es in Zukunft für alle 
Ihre Projekte. 

2. Nehmen Sie eines unserer früheren Beispielprogramme und imple¬ 
mentieren Sie Ihren Programmkem. Testen Sie, ob die Drucker¬ 
umschaltung arbeitet. 


260 
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FEHLERSUCHE UND FEHLERBEHEBUNG 


Es sollte nicht an Ihrem Selbstbewußtsein kratzen, wenn Ihre Pro¬ 
gramme nicht auf Anhieb fehlerfrei laufen. Software ohne Fehler 
gibt es praktisch nicht! 

Fehler treten meist als Folge schlecht durchdachter Algorithmen 
oder verkehrt codierter Programme auf. Eine zweite Fehler Ursache 
stellen Falscheingaben seitens des Programmbenutzers dar. Die er¬ 
ste Fehlersorte kann durch sorgfältiges Programmieren und Testen 
beseitigt werden. Die zweite ist nur durch geeignete Maßnahmen 
bei der Überprüfung der Eingaben in den Griff zu bekommen. Das 
heißt, wir müssen Eingabefehler gezielt behandeln. Ein Programm, 
das Eingabefehler nicht auffangen kann, ist nicht viel besser als 
eines, das selbst voller Fehler ist. In diesem Kapitel werden Sie 
einige Fehlersuch- und Behandlungsmethoden kennenlernen. 

DIE FEHLERSUCHE 

Unglücklicherweise gibt es immer noch Programmierer, die ein Pro¬ 
gramm für fehlerfrei halten, weil es bis zum Ende durchläuft. 
Doch das heißt eigentlich nur, daß es gelungen ist, Syntaxfehler 
zu vermeiden und daß gültige Basic-Befehle verwendet wurden. Das 
ist aber längst nicht genug. 

Zuerst sollte das Programm mit ausgewählten Daten laufen, von de¬ 
nen man weiß, welches Ergebnis sie liefern. Aber auch hier gilt, 
daß ein Test, der erfolgreich verlaufen ist, noch nicht viel da¬ 
rüber aussagt, wie viele Fehler noch vorhanden sind. Rundungsfeh¬ 
ler, unterschiedlich durchlaufene Programmverzweigungen und vie¬ 
les mehr können auf ein Ergebnis ein wirken. 

Rundungsfehler treten zum Beispiel, meist erst auf, wenn sehr 
große Zahlen verarbeitet werden. Allgemein kann man feststellen: 

1. Ein Programm sollte immer mit Testwerten überprüft werden, bei 
denen das zu erwartende Ergebnis bekannt ist. 

2. Als Testwerte sollten sowohl sehr kleine als auch sehr große 
Zahlen verwendet werden 

Je umfangreicher die Zahl der Testläufe mit sorgfältig ausgewähl¬ 
ten Werten ist, um so kleiner ist die Wahrscheinlichkeit, daß 
Fehler übersehen werden. 
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Bei komplexen Programmen ist die Fehlerwahrscheinlichkeit sehr 
hoch. Wir werden anhand unserer Testwerte feststellen können, daß 
sich noch Fehler in unserem Programm befinden. Wir stehen dann 
vor dem Problem, die Ursache zu lokalisieren. 

PRINT, STOP UND CONT 

Die einfachste Art, Fehler zu finden, ist, sich immer wieder Zwi¬ 
schenwerte von Variablen ausdrucken zu lassen und mit STOP das 
Programm an einzelnen Punkten anzuhalten. Nehmen wir an, eine Va¬ 
riable hat in Zeile 1000 noch einen korrekten Wert, der in Zeile 
1450 nicht mehr vorhanden ist, so haben Sie bereits einen Bereich 
isoliert, in dem der Fehler entstanden sein muß. Nachdem Sie sich 
diesen Bereich genau angesehen haben, brauchen Sie nur noch von 
'hinten' beginnend (von den großen Zeilennummern aus) den Wert 
der Variablen nach jeder Änderung ausdrucken zu lassen und Sie 
werden sehen, wo sie unzulässig verändert wird. Wenn wir davon 
ausgehen, daß alle Zeilennummern ganzzahlige Vielfache von 10 
sind, so können Sie die erforderlichen PRINT-Anweisungen immer in 
Zwischen zeilen mit auf 5 endender Zeilennummer unter bringen. 

1145 PRINT X 

1155 PRINT XlSTOP 

Die beiden Test zeilen drucken den Wert von X vor und nach der 
suspekt erscheinenden Zeile aus, und die STOP-Anweisung erlaubt 
Ihnen, sich die Werte in Ruhe anzusehen. Sehen Sie in 1145 einen 
korrekten Wert, während in 1155 eine unzulässige Veränderung auf- 
getreten ist, muß der Fehler in Zeile 1150 sein. Auf diese Weise 
können Sie, wenn der Fehler noch nicht aufgetreten ist, den gan¬ 
zen Bereich inspizieren. Mit CONT gehen Sie von STOP zu STOP 
(Vergessen Sie nicht, vor der Programmauslieferung die STOP's 
wieder zu entfernen! Verwenden Sie für die Testzeilen immer glei¬ 
che Endziffern, dann finden Sie sie später leichter wieder). 


BEFEHLSMODUS UND FEHLERSUCHE 

Sollten Sie den Fehler nicht nur in einer Variablen, sondern zum 
Beispiel in einer Matrix vermuten, so können Sie im Befehlsmodus 
auch Schleifen anwenden, um sich den Inhalt ausgeben zu lassen. 

FOR J=1 TO 20:PRINT X(J);:NEXT J 
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Das Prinzip der Fehlersuche mit PRINT, STOP und CONT ist die Un¬ 
tergliederung des Programms in kleine überschaubare Untersu¬ 
chungseinheiten. Der Fehler wird dabei langsam eingekreist und 
schließlich (hoffentlich!!!) gefunden. 


DIE TRON/TROFF-ANWEISUNGEN 

Manchmal ist die Verfolgung des Programmablaufs reichlich schwie¬ 
rig. Zahlreiche Programmverzweigungen können in einzelnen Berei¬ 
chen dazu führen, daß die Übersicht völlig verloren geht. Die Ab¬ 
laufverfolgungsfunktion (engl, trace) hilft uns aus dieser Mise¬ 
re. Nehmen wir an, in Zeile 100 stünde eine ON GOTO-Anweisung mit 
sehr vielen Sprungmöglichkeiten. Wir können mit 

95 TRON 

nach dem Ausführen der Zeile 95 die durchlaufenen Programm Zeilen 
sehen. B-80 schreibt jede Zeilennummer der gerade ausgeführten 
Zeile auf den Schirm. Diese Funktion kann mit 

495 TROFF 

wieder abgeschaltet werden. TRON und TROFF können auch im Be¬ 
fehlsmodus angewendet werden. Kombiniert mit der PRINT-, STOP-, 
CONT-Methode sollte es auch in den kompliziertesten Programmen 
möglich sein, einen Fehler zu finden. 

Der schwierigste Teil der Fehlerbeseitigung ist normalerweise die 
Fehlersuche. Ist der Fehler einmal gefunden, so ist es selten ein 
Problem, ihn zu beseitigen. Dennoch gibt es Tage, an denen Sie 
einfach nicht weiter kommen. Wenn Sie können, sollten Sie dann 
fischen gehen oder sich anderweitig vergnügen. Oft reichen schon 
ein paar Stunden Abstand vom Programm, um es mit völlig anderen 
Augen erneut zu testen. Dann wird meist auch der gemeinste Fehler 
zu finden sein. Oft hilft auch ein freundlicher Kollege weiter, 
der sich schnell mit Ihrem Programm beschäftigt und nach 10 Minu¬ 
ten mit stolzgeschwellter Brust den Fehler findet, den Sie seit 
einer Woche suchen. 
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ÜBUNGEN 

1. Laden Sie das komplizierteste Programm, das Sie bisher ge¬ 
schrieben haben, in den Speicher. Bitten Sie einen Kollegen, 
einige Fehler in Ihr Programm einzubauen, während Sie weg¬ 
schauen (wer täte das nicht gern ?). Versuchen Sie dann, die 
Fehler zu finden. 

2. Damit die Gerechtigkeit wieder hergestellt ist, dürfen Sie in 
ein Programm Ihres Kollegen auch einen Fehler einbauen. Wie 
lange braucht er, um ihn zu finden (ob Sie es glauben oder 
nicht, es wird für Sie beide eine wertvolle Erfahrung werden). 


FEHLERBEHEBUNG 

Unter Fehlerbehebung versteht man eine Technik, die es erlaubt, 
Bedienungsfehler so zu beheben, daß das Programm nicht abgebro¬ 
chen werden muß. B-80 stellt uns einige Anweisungen zur Verfü¬ 
gung, mit denen man die von B-80 produzierten Fehlercodes auswer¬ 
ten kann. Die Fehlerbehebung muß in B-80 gesondert vereinbart 
werden. Hierzu dient die 

ON ERROR GOTO (Zeilennummer) 

Anweisung. Sie veranlaßt B-80, Fehlercodes zu erzeugen und er¬ 
laubt eine fehlerabhängige Programmverzweigung. Wie weiß nun das 
Programm, daß ein Fehler passiert ist? 

Jeder behebbare Fehler besitzt einen eigenen Code. Der Versuch, 
eine Division durch Null auszuführen, besitzt zum Beispiel den 
Code 11. Der Code 4 zeigt an, daß wir mit READ versucht haben, 
Daten zu lesen, die DATA nicht mehr bereit gestellt hat. 

Immer, wenn ein solcher Fehler auftritt, wird der zugehörige Code 
in der für diesen Zweck reservierten Variablen ERR abgelegt. Die 
Zeile, in der der Fehler aufgetreten ist, finden wir in ERL. ERR 
und ERL sind reservierte Schlüsselworte wie PRINT oder INPUT. Sie 
dürfen nicht anderweitig verwendet werden. 
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Wurde der Programmlauf in die Fehlerroutine verzweigt, ist die 
Arbeit für B-80 erledigt. Der Programmierer hat die Aufgabe, da¬ 
für zu sorgen, daß der Fehler in der geeigneten Art behoben wird. 
Anschließend kann das Programm fortgesetzt werden. Dazu gibt es 
mehrere Möglichkeiten: 

1. RESUME veranlaßt die Fortführung des Programms mit der Anwei¬ 
sung, die den Fehler verursachte. 

2. RESUME NEXT veranlaßt die Fortführung des Programms mit der 
Anweisung, die auf die Fehlerverursachende folgt. 

3. RESUME (Zeilennummer) läßt das Programm in der angegebenen 
Zeile weiterlaufen. 

Die RESUME-Anweisung setzt auch den Wert von ERR auf Null zurück 
(täte sie das nicht, würden wir eine herrliche Dauerschleife pro¬ 
duzieren, weil die Fehlermeldung immer noch anstünde). Anschlie¬ 
ßend können (hoffentlich nicht ü?) neue Fehler gemeldet werden. 
Diese Funktion kann mit ON ERROR GOTO 0 wieder abgeschaltet wer¬ 
den. Die gezielte Fehlerbehebung läßt sich in vier wesentliche 
Schritte untergliedern: 

1. Freigabe der Fehlerbehandlungs-Funktion mit ON ERROR GOTO 

2. Fehlerbehandlung durch den Programmierer 

3. Fortsetzen des Programms mit RESUME 

4. Abschalten der Fehlerbehandlungs-Funktion mit ON ERROR GOTO 0 

Das Programm in Bild 13.1 zeigt an drei Beispielen, wie die gera¬ 
de besprochenen Anweisungen eingesetzt werden können. 


100 REM 20. MAI 83 

110 REM TESTEN DER GEZIELTEN FEHLERBEHANDLUNG MIT ABSICHT 
120 LICHEN FEHLERN (/0 UND UEBERSCHRITTENEM ZAHLENBEREICH) 
130 ' 

140 LET LOESCH$=CHR$(27)+CHR$(42) 

150 PRINT LOESCH$ 

160 ' 

170 REM DIVISION DURCH NULL 
180 ' 

190 LET TEST=0 
200 ON ERROR GOTO 420 
210 ' 
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220 LET FEHLER=200/TEST 
230 ' 

240 REM ZAHLENBEREICH UEBERSCHRITTEN 
250 ' 

260 FOR J=1 TO 3 
270 LET X(J)=23 / '10^3 
280 NEXT J 
290 ' 

300 REM FEHLZUORDNUNG EINER ZAHL 
310 ' 

320 LET X(4)=T$ 

330 ' 

340 REM AUSSCHALTEN DER FEHLERBEHANDLUNGSFUNKTION 
350 •' 

360 ON ERROR GOTO 0 
370 ' 

380 REM PROGRAMMENDE 
390 ' 

400 END 
410' 

420 REM FEHLERROUTINE DIVISION DURCH NULL 
430 ' 

440 PRINT CHR$(7) LOESCH$ 

450 IF ERROll THEN 500 

460 PRINT "FEHLER:DIV.DURCH NULL. WEITER -> TASTE DRÜCKEN" 
470 T$=INPUT$(1) 

480 RESUME NEXT 
490 ' 

500 REM FEHLERROUTINE BEREICHSUEBERLAUF 
510 ' 

520 IF ERR<>6 THEN 610 

530 PRINT "FEHLER: ZAHL ZU GROSS" 

540 PRINT "DIE ZAHL WURDE IN DEN ZULÄSSIG. BEREICH GESETZT 
550 PRINT "UND KANN NUR ALS ANNÄHERUNG VERWENDET WERDEN!" 
560 PRINT TAB(30) "WEITER -> TASTE DRÜCKEN"; 

570 T$=INPUT$(1):PRINT 
580 LET X(J)=lE+38 
590 RESUME NEXT 
600 ' 

610 REM FEHLERROUTINE ZUORDNUNGSFEHLER 
620 ' 

630 IF ERR013 THEN 670 

640 PRINT "EIGENTLICH WOLLTE ICH EINE ZAHL HABEN" 

650 RESUME 360 
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660 ' 

670 REM FEHLERROUTINE SONSTIGE FEHLER 
680 ' 

690 PRINT "FEHLERCODE" ERR 
700 RESUME 


Bild 13.1 Beispiele zur Fehlerbehandlung 


Zeile 200 gibt die Fehlerbehandlung frei und übergibt im Fehler¬ 
fall die Kontrolle an den mit 420 beginnenden Programmteil. Der 
erste Fehler tritt in Zeile 220 auf, wenn wir versuchen, 200 
durch Null zu dividieren. Der Fehlercode dafür ist 11. Er wird in 
ERR an das Programm übergeben. In Zeile 420 beginnt die Routine 
zur Fehlerkorrektur. Der Benutzer wird mit Hilfe des 'Piepsers' 
und durch das Löschen des Schirms auf den Fehler aufmerksam ge¬ 
macht. In Zeile 450 wird die Art des Fehlers festgestellt. Mit 11 
als Fehlercode wird in Zeile 460 der Benutzer über die Fehlerart 
informiert. Nach dem Drücken einer beliebigen Taste wird das Pro¬ 
gramm mit RESUME NEXT fortgesetzt. Diese Art der Fehlerbehandlung 
teilt dem Benutzer mit, daß ein Fehler aufgetreten ist. 

Die in Zeile 260 beginnende FOR/TO-Schleife erzeugt eine Zahl, 
die größer als der in B-80 zulässige Zahlenbereich ist. Der Code 
hierfür ist 6. Das Programm verzweigt in die Zeilen 530 bis 560. 
Hier wird der Benutzer informiert, daß die Zahl auf einen zuläs¬ 
sigen Wert reduziert wird. Die RESUME NEXT-AnWeisung in Zeile 590 
erlaubt den nächsten Schleifendurchlauf. Die Schleife wird insge¬ 
samt dreimal abgearbeitet. 

In der Zeile 320 wird versucht, einer numerischen Variablen eine 
Zeichenkette zuzuordnen, was einen "data type error" hervorruft. 
Mit einem Fehlercode 13 verzweigt das Programm nach Zeile 630. 
Sonst geschieht nichts weiter. RESUME 360 veranlaßt die Ausfüh¬ 
rung von Zeile 360. Hier wird die Fehlerbehandlungs-Funktion ab¬ 
geschaltet und das Programm beendet. 
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ÜBUNGEN 

1. Schauen Sie sich die Tabelle mit den Fehlercodes im Anhang Ih¬ 
res B-80-Handbuchs an. Können konsequent durchgeführte Pro¬ 
grammtests einige davon überflüssig machen? Welche Codes hal¬ 
ten Sie für besonders wichtig? 

2. Wie können ERR und ERL innerhalb einer Fehlerbehandlungs-Rou¬ 
tine zusammen angewendet werden? Worin sehen Sie den Vorteil 
von ERL? 

3. Schreiben Sie eine Routine, die den Versuch, eine Matrix zu 
verwenden, die größer als die zuhehörige DIM-Anweisung ist,- 
behandelt (Hinweis: Verwenden Sie hierzu die ERASE-Anweisung, 
die im B-80-Handbuch beschrieben ist) 


DIE PROGRAMMBESCHREIBUNG 

Irgend jemand sagte einmal, 'ein Programm wird nie fertig, es 
wird nur ausführbar'. Viele Programmierer sind dankbar für diesen 
Ausspruch, weil er ihnen einen Grund liefert, keine Programmbe¬ 
schreibung erstellen zu müssen. Die Beschreibung eines Programms 
gehört zu den weniger beliebten Teilen des Programmierens. Die 
Herstellung der Dokumentation ist eine sehr vielschichtige Ange¬ 
legenheit und hängt von der Mentalität des Programmierers ab. Ei¬ 
nige Anregungen und Hinweise möchte ich aber dennoch dazu geben. 

Die Dokumentation sollte zusammen mit der Entwicklung des Algo¬ 
rithmus beginnen. Je genauer Sie den Algorithmus beschreiben, um 
so einfacher werden Sie später die Dokumentation erstellen kön¬ 
nen. Die Aufteilung von Dateien, die verwendeten Unterprogramme 
sowie die Benutzerfunktionen sollten möglichst verständlich be¬ 
schrieben sein. Ebensowenig sollte eine Liste der verwendeten Va¬ 
riablennamen fehlen. 

Ein Teil der Dokumentation kann in Form von REM-AnWeisungen im 
Programm untergebracht werden. Der Autor ist aber der Meinung, 
daß das nicht ausreicht. Außerdem haben REM's den Nachteil, be¬ 
achtlich Speicherplatz zu brauchen und auf die Arbeitsgeschwin- 
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digkeit wirken sie sich ebenfalls negativ aus. Solange Sie keinen 
Compiler verwenden, der die Kommentare nicht mit ins endgültige 
Programm übernimmt, stellen REM's keine sehr gute Lösung dar. 
Vermeiden Sie auf jeden Fall, REM-Anweisungen in Schleifen zu 
plazieren. Dort multipliziert sich die Verzögerungszeit mit der 
Anzahl der Durchläufe. REM's sollten nur grob das Programm kom¬ 
mentieren und entsprechend sparsam angewendet werden. Details 
sind in der Programmbeschreibung besser aufgehoben! 

Ein wesentlicher Gesichtspunkt ist, für wen Sie die Dokumentation 
schreiben. Verwenden Sie das Programm ausschließlich selbst, so 
können Sie auf verschiedene Details verzichten. Wird das Programm 
jedoch von Dritten benutzt, ist eine ausführliche Beschreibung 
unumgänglich. 

Sie muß einerseits eine Bedienungsanleitung sein, die erklärt, 
wie das Programm geladen wird und welche Rechnerumgebung erfor¬ 
derlich ist. Andererseits sollten die Möglichkeiten und Grenzen 
des jeweiligen Programms möglichst genau aufgezeigt werden. Be¬ 
sonders wichtig ist die Beschreibung der Randprobleme. Wie macht 
man Sicherungskopien (viele Leute haben noch nie etwas von PIP 
gehört), was ist zu tun, wenn die Diskette voller Daten ist usw. 

Ein weiterer Aspekt, der für eine gute Dokumentation spricht, ist 
das menschliche Gedächtnis. Wenn Sie nach einiger Zeit eines Ih¬ 
rer Programme ändern sollen, dann werden Sie sich wundern, was 
für tolle Tricks dem Programmierer, der dieses Programm schrieb, 
eingefallen sind. Mit anderen Worten: Sie werden einige Zeit be¬ 
nötigen, die Logik des Programms zu erfassen, obwohl Sie selbst 
derjenige waren, der das Programm einst entwickelte. Der Aufwand, 
der dabei entsteht, ist häufig so groß, daß Sie ein neues Pro¬ 
gramm in derselben Zeit geschrieben hätten. 

Ein guter Programmierer wird immer bestrebt sein, seine Programme 
und die dazugehörende Dokumentation auf dem letzen Stand der 
Technik zu halten. Dazu ist es nicht nur notwendig, die Programme 
zu ändern und zu verbessern, der Programmierer wird auch seine 
Ausbildung und seinen überblick über die technische Entwicklung 
laufend auf den letzten Stand bringen müssen. 
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UNSER LETZTES BEISPIEL 


In diesem Kapitel werden wir eine Art Meisterstück anfertigen. 
Wir schreiben ein ziemlich langes Programm, in dem wir alle bis¬ 
her erlernten Befehle und Methoden einsetzen. Wir werden am 
Schluß dieses Kapitels das Programm diskutieren und einige Anre¬ 
gungen für Verbesserungen herausarbeiten. 


DAS PROGRAMMKONZEPT 

Häufig lese ich Fachartikel, die ich zwar interessant finde, wo 
ich aber momentan keine Anwendungsmöglickeiten für die darin ent¬ 
haltenen Ideen sehe. Umgekehrt weiß ich genau, daß ich in dem Mo¬ 
ment, wo ich eine Anregung gebrauchen könnte, nicht mehr weiß, wo 
der Artikel stand. Das Programm, das wir in diesem Kapitel 
schreiben werden, soll deshalb Zusammenfassungen solcher Artikel 
speichern und es soll uns in die Lage versetzen, sie nach Stich¬ 
punkten geordnet wiederzufinden. Damit können wir dann eine Reihe 
von Fachartikeln ausgedruckt bekommen, in denen die Themen behan¬ 
delt werden, die wir mit der Stichpunktangabe ausgewählt haben. 
Jedes Programm dieser Art sollte mit der Überlegung beginnen, was 
wir genau an Leistungsumfang erwarten. 


LEISTUNGSÜBERSICHT 

1. Gespeichert werden Zusammenfassungen der Artikel, Name und Da¬ 
tum der Publikation und jede andere für uns nützliche Informa¬ 
tion. 

2. Die Zusammenfassungen sollen anhand einer Stichpunktangabe 
wiedergefunden werden können. 

3. Der Speicherplatz soll so effektiv wie möglich ausgenutzt wer¬ 
den. 


Die erste Forderung beinhaltet, daß wir grundsätzlich ein Minimum 
an Information speichern, daß aber im Einzelfall auch mehr Platz 
zur Verfügung stehen muß. Prinzipiell könnten wir jede der disku¬ 
tierten Dateitechniken anwenden. Dateien mit wahlfreiem Zugriff 
würden aber im Gegensatz zu unserer dritten Forderung stehen, 
weil wir die Datensatzlänge sehr groß machen müßten, was im Re¬ 
gelfall zu einer Verschwendung von Speicherplatz führt. 
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Sequentielle Dateien könnten ebenfalls verwendet werden, sie ha¬ 
ben aber den Nachteil, nur sehr umständlich erweiterbar zu sein. 
Bleibt also noch der Kompromiß ss-Datei. Damit können wir sowohl 
individuell verschieden große Datensätze als auch einfache Erwei- 
terbarkeit gewährleisten. Außerdem müssen wir nicht die ganze Da¬ 
tei lesen, wenn wir Artikel suchen. Die Liste der Stichpunkte, 
nach denen wir die Artikel einordnen und später suchen, soll so 
aussehen: 

1. Programmiersprachen 

2. Betriebssysteme 

3. Speicher 

4. Diskettensysteme 

5. Bildschirmsysteme 

6. Rechnerbeschreibungen 

7. Spielprogramme 

8. Kommerzielle Programme 

9. Sonstige Software 

10. Programmiertechniken 

11. Sonstiges 

Wollen wir zum Beispiel alle Artikel haben, die einen Rechner be¬ 
schreiben, ohne jeden Datensatz lesen zu müssen, so können wir 
dies mit einer Indexliste tun. Die Indexliste enthält eine Reihe 
von Schlüsselwörtern (hier unsere Stichpunkte), denen die Ord¬ 
nungsnummer der Datensätze zugeordnet ist, die Fachartikel zu ei¬ 
nem bestimmten Thema (Stichwort) enthalten. 

Nehmen wir an, der fünfte Datensatz innerhalb einer Datei ent¬ 
hielte die erste Rechnerbeschreibung. Die Indexliste würde dann 
bei dem sechsten Schlüsselwort (Rechnerbeschreibungen) die Zahl 
fünf enthalten. 

Der einfachste Weg, eine solche Liste zu erstellen, ist die Ver¬ 
wendung von zwei Dateien. Die erste, die Indexdatei, enthält dann 
eine Liste der Schlüsselworte mit den jeweiligen Datensatznum¬ 
mern, während die zweite die eigentlichen Artikel beinhaltet. 
Bild 14.1 soll Ihnen helfen, diese Technik besser zu verstehen. 

Die Indexdatei kann als eine Speichereinheit aufgefaßt werden, 
die einen 'Zeiger' auf die eigentlichen Daten enthält. Jeder Zei¬ 
ger stellt die Ordnungsnummer eines Datensatzes dar, der spezifi¬ 
zierte Informationen enthält. Wir brauchen also nur die Indexda¬ 
tei zu lesen, wenn wir eine Serie spezifischer Artikel suchen. 
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Die erste Zahl innerhalb des ersten Datensatzes ist ein Zeiger 
auf die nächste Stelle, an der ein gleichartiger Datensatz zu 
finden ist. Wir überspringen die für uns uninteressanten Daten¬ 
sätze, ohne sie auswerten zu müssen. Im Bild 14.1 ist der letzte 
Zeigerwert gleich Null. Das heißt für uns, daß keine weiteren 
Fachartikel zum gleichen Thema gespeichert sind. 

1. Zeiger Schlüsselwort 

0 ? 

0 Programmiersprachen 

3 Betriebssysteme 

0 Speicher 

4 Diskettensysteme 

0 Bildschirmsysteme 

+—1 Rechnerbeschreibungen 

! 0 Spielprogramme 

! 0 Kommerzielle Software 

! 0 Sonstige Programme 

! 2 Programmiertechniken 

! 0 Sonstiges 

I 

! Die Artikeldatei 

V 

- / / - 

! 5 ! 1. Datensatz ! x ... ! 0 ! 2. Datensatz ! x . 

- / / - 



+-+ 

Zeiger zum nächsten gleichartigen Datensatz 

Bild 14.1 Der Aufbau der 'Zeigerdatei' 


INITIALISIERUNG DER VERWENDETEN DATEIEN 

Das Programm in Bild 14.2 wird zum Initialisieren der Zeiger- und 
der Artikeldatei verwendet. Die hier angewendete Technik haben 
wir schon in anderen Kapiteln besprochen. Wir wollen uns deshalb 
nur noch mit einigen speziellen Aspekten des Programms befassen. 
Für die ss-Datei werden einfach genaue Zahlen verwendet. Die Va¬ 
riable GENAU übernimmt diese Aufgabe. Die Länge der Schlüsselwör¬ 
ter ist auf 25 Zeichen beschränkt, sie kann aber in Zeile 180 ge- 
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ändert werden. Weil die Datei ZEIGER, die die Zeiger enthält, 
beim erstmaligen Schreiben den jeweils ersten Zeiger aufnehmen 
muß, wurde sie als Datei mit wahlfreiem Zugriff ausgeführt. Die 
Größe der Datensätze ergibt sich aus den Schlüsselwörtern und aus 
der verwendeten Zahlengenauigkeit. 


100 REM 20. MAI 83 

110 REM INITIALISIERUNG DER DATEIEN, DIE FUER 

120 REM DAS FACHARTIKELSPEICHERSYSTEM VERWENDET WERDEN 

130 ' 

140 REM INITIALISIERUNG 
150 ' 

160 LET LOESCH$=CHR$(27)+CHR$(42):REM SOROC TERMINAL 
170 LET GENAU=4:REM EINFACH GENAUE ZAHLEN 
180 lET ALPHA=25:REM ZEICHENKETTENLAENGE 
190 RSIZE=GENAU+ALPHA:REM LÄNGE DER ZEIGERDATEI 
200 ' 

210 PRINT L0ESCH$ 

220 INPUT "ANZAHL DER SCHLÜSSELWÖRTER: ANZAHL 

230 LET ANZAHL=ANZAHL+1 
240 ' 

250 DIM FIRST(ANZAHL), SCHLUEWO$(ANZAHL) 

260 ' 

270 REM DER 1.DATENSATZ ENTHAELT DIE ANZAHL DER DATENSÄTZE 
280 ' 

290 LET FIRST(1)=ANZAHL 

300 LET SCHLUEWO$(l)=”STICHPUNKTE” 

310 ' 

320 REM EINGABE 
330 ' 

340 PRINT 

350 FOR J=2 TO ANZAHL 
360 LET FIRST(J)=0 

370 PRINT"SCHLÜSSELWORT" J-l”:. 

380 FOR K=1 TO 25 
390 PRINT CHR$(8) 

400 NEXT K 
410 INPUT "",T$ 

420 IF LEN(T$)<26 THEN 440 

430 PRINT CHR$(7) TABC40) "MAX. 25 ZEICHEN":GOTO 370 
440 LET SCHLUEWO(J)=T$ 

450 NEXT J 
460 ' 
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470 REM AUSGABE 
480 ' 

490 REM ZUERST DIE ZEIGERDATEI 
500 ' 

510 OPEN "R",#l,"ZEIGER",RSIZE 

520 FIELD #1,GENAU AS NUM$,ALPHA AS SCHW$ 

530 ' 

540 FOR J=1 TO ANZAHL 

550 LSET NUM$=MKS$(FIRST(J)):REM ALLE WERTE AUF NULL 
560 LSET SCHW$=SCHLUEWO$(J);REM SCHLÜSSELWORTE 
570 PUT #1,J:REM IN DIE DATEI SCHREIBEN 
580 NEXT J 
590 ' 

600 CLOSE #1 
610 ' 

620 REM INITIALISIERUNG DER ARTIKELDATEI 
630 ' 

640 OPEN ”R",#1,1,"ARTIKEL",GENAU 
650 FIELD #1,GENAU AS X$ 

660 ' 

670 REM SCHREIBEN DES SATZZAHLERS 
680 ' 

690 LET RNUM=1 

700 LSET X$=MKS$(RNUM) 

710 PUT #1,1 
720 ' 

730 CLOSE #1 
740 ' 

750 REM PROGRAMMENDE 
760 ' 

770 END 


Bild 14.2 Initialisierung der verwendeten Dateien 


Das Programm verlangt vom Benutzer die Gesamtzahl der Schlüssel¬ 
worte und dimensioniert damit die Matrizen für die Zeigerwerte 
und die Stichpunkte. Beachten Sie auch, daß in Zeile 230 die Zei¬ 
gerdatei um einen Datensatz größer gemacht wird, als dies vorher 
vom Anwender eingegeben wurde. Die Zeilen 290 und 300 verarbeiten 
den Inhalt des ersten Datensatzes der Zeigerdatei ZEIGER. Dadurch 
müssen wir die Zahl der Schlüsselworte nicht als konstant anse- 
hen. Nach dem Lesen des ersten Datensatzes kennen wir die Anzahl. 
In der Schleife, die in den Zeilen 350 bis 450 steht, werden die 
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Stichpunkte eingegeben. Sie beginnt mit einem Zählerwert von 
zwei, weil das erste Element der Matrix zum Speichern der Größe 
verwendet wird. Alle Zeigerwerte werden auf Null gesetzt. (Was 
ist der Zweck der verschachtelten Schleife in den Zeilen 380 bis 
400?) 

Nach der Eingabe eines Schlüsselwortes wird überprüft, ob die 
Lange überschritten wurde. Nachdem alles eingegeben wurde, werden 
die Daten auf die Diskette geschrieben. Die Zeilen 640 bis 730 
initialisieren die ARTIKEL-Datei. RNUM wird als Datensatz Zähler 
verwendet und mit einem Wert von 1 auf der Diskette gespeichert. 
Der Rest des Programms schließt die Datei und beendet den Pro¬ 
grammlauf . 


ÜBUNGEN 

1. Entwickeln Sie mit Bild 14.2 als Anleitung einen Algorithmus 
für Ihr eigenes Artikelindexprogramm. 

2. Schreiben Sie ein Initialisierungsprogramm, das den Algorith¬ 
mus von 1. zugrunde legt. Machen Sie dieses Programm so uni¬ 
versell wie möglich, damit es später ohne große Änderungen 
verwendet werden kann. 


DAS AUFFÜLLEN DER ARTIKELDATEI 

Das Programm in Bild 14.3 kann zum Auffüllen der Artikeldatei 
verwendet werden. Im ersten Teil werden die notwendigen Bild¬ 
schirm- und Dateikonstanten vereinbart (1080 bis 1160). In den 
Zeilen 1200 bis 1290 wird die Zeigerdatei gelesen. Der erste Da¬ 
tensatz bestimmt die Anzahl der Schleifendurchläufe. In den Zei¬ 
len 1310 bis 1340 wird schließlich die Artikeldatei gelesen, um 
die Anzahl der gespeicherten Datensätze zu ermitteln. 


1000 REM 20. MAI 83 

1010 REM MIT DIESEM PROGRAMM WERDEN DIE DATEIEN BESCHRIEBEN 
1020 ' 
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1030 ' 

1040 REM INITIALISIERUNG 
1050 ' 

1060 REM SOROC TERMINAL 
1070 ' 

1080 DEF FNC$(ZEILE,SPALTE)=CHR$(27)+CHR$(61)+CHR$(ZEILE 
+31)+CHR$(SPALTE+31) 

1090 LET LOESCH$=CHR$(27)+CHR$(42) 

1100 ' 

1110 LET GENAU=4 
1120 LET ALPHA = 25 
1130 LET RSIZE=GENAU+ALPHA 
1140 LET F$="##" 

1150 LET ART$=SPACE$(250) 

1160 LET NZEIG=0 
1170 '■ 

1180 REM ÖFFNEN DER DATEIEN 
1190 ' 

1200 OPEN "R",#l,"ZEIGER",RSIZE 

1210 FIELD #1,GENAU AS NUM$,ALPHA AS SCHW$ 

1220 ' 

1230 REM LESE REST DER DATEI 
1240 ' 

1250 GET #1,1 

1260 LET ANZAHL=CVS(NUM$) 

1270 DIM FIRST(ANZAHL), SCHLUEWO$(ANZAHL) 

1280 LET SCHLUEWO$(l)=SCHW$ 

1290 GOSUB 2270: REM LESE ZEIGERDATEI 
1300 ' 

1310 OPEN "R",#2,"ARTIKEL",GENAU 
1320 FIELD #2,GENAU AS X$ 

1330 GET #2,1 

1340 LET ZAEHLER=CVS(X$):REM ANZAHL DER DATENSÄTZE 
1350 PRINT LOESCH$ 

1360 GOSUB 2380:REM AUSDRUCKEN DER SCHLÜSSELWÖRTER 
1370 ' 

1380 REM EINGABE 
1390 ' 

1400 PRINT FNC$((ANZAHL/2)+5,1) "INDEXZAHL (999=ENDE):" 

1410 INPUT "”,N 

1420 IF N>0 AND N<=ANZAHL-1 THEN 1440 

1430 PRINT FNC$(1,55) "EINGABE UNGÜLTIG" CHR$(7);:GOTO 1400 
1440 IF N=999 THEN GOSUB 2620:END 
1450 ' 
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1460 REM EINGABE DER ZUSAMMENFASSUNG 
1470 ' 

1480 PRINT FNC$(23,1) "ZEICHENZÄHLER (MAX. 250): 

1490 PRINT FNC$(18,1) "BESCHREIBUNG:": 

1500 LET ZEILE=18 :LET SPALTE=20: LET ZEICH=0 
1510 ' 

1520 FOR J=1 TO 250 

1530 IF SPALTE>79 THEN ZEILE=ZEILE+1:LET SPALTE =1 
1540 PRINT FNC$(ZEILE,SPALTE); 

1550 T$=INPUT$(1) 

1560 IF T$=CHR$(13) THEN 1670 

1570 IF T$=CHR$(8) THEN SPALTE=SPALTE-1:LET ZEICH=ZEICH-1 

:GOTO 1540 
1580 PRINT T$; 

1590 LET ZEICH=ZEICH+1 

1600 MID$(ART$,ZEICH,1)=T$ 

1610 PRINT FNC$(23,29) ZEICH 

1620 LET SPALTE=SPALTE+1 

1630 NEXT J 
1640 ' 

1650 REM ABSCHNEIDEN DER LEERRÄUME 
1660 ' 

1670 LET ART$=LEFT$(ART$,ZEICH) 

1680 ' 

1690 REM BERECHNUNG DER ANZAHL DER NOTWENDIGEN DATENSÄTZE 
1700 ' 

1710 LET NSATZ=ZEICH/GENAU 

1720 IF NSATZ<>INT(NSATZ) THEN NSATZ=INT(NSATZ)+l 
1730 ' 

1740 REM DISKETTENAUSGABE 
1750 ' 

1760 REM ZUERST DIE ARTIKELDATEI 
1770 ' 

1780 LSET X$=MKS$(NZEIG) 

1790 GOSUB 2480 
1800 ' 

1810 REM SETZEN DER ERSTEN ORDNUNGSNUMMER 
1820 ' 

1830 IF FIRST(N+1)=0 THEN FIRST(N+1)=ZAEHLER:GOSUB 2550 
1840 ' 

1850 REM SPEICHERUNG DER ZAHLERVARIABLEN 
1860 ' 

1870 LET ZAEHL1=ZAEHLER 
1880 LSET X$=MKS$(NSATZ) 
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1890 GOSUB 2480 
1900 FOR J=1 TO NSATZ 

1910 LSET X$=MID$(ART$,GENAU*J-(GENAU-1),GENAU) 

1920 GOSUB 2480 
1930 NEXT J 
1940 ' 

1950 REM AKTUALISIERUNG DES ZEIGERS 
1960 ' 

1970 LSET X$=MKS$(ZAEHLER) 

1980 PUT #2,1 
1990 ' 

2000 REM AKTUALISIERUNG DES INDEX 
2010 ' 

2020 REM BEGINNE MIT EINER KOPIE DES ZEIGERS 
2030 ' 

2040 ' 

2050 LET KOPIE=FIRST(N+l) 

2060 IF K0PIE=ZAEHL1 THEN 1350 
2070 ' 

2080 GET #2,KOPIE 
2090 LET DUMMY=CVS(X$) 

2100 ' 

2110 REM IST DUMMY 0, DANN HABEN WIR DEN LETZTEN DATENSATZ 
2120 REM GELESEN UND KÖNNEN IN DEN NÄCHSTEN SCHREIBEN 
2130 ' 

2140 IF DUMMY=0 AND ZAEHL1>K0PIE THEN GOSUB 2680:GOTO 1350 
2150 ' 

2160 REM 
2170 REM 
2180 REM 
2190 ' 

2200 IF DUMMY=0 AND ZAEHL1<=K0PIE THEN 1350 
2210 ' 

2220 REM IST DUMMY NICHT 0, DANN MÜSSEN NOCH MEHR DATEN 
2230 REM VORHANDEN SEIN 
2240 ' 

2250 LET KOPIE=DUMMY 
2260 GOTO 2080 
2270 ' 

2280 REM BEGINN DER UNTERPROGRAMME 
2290 ' 

2300 REM UNTERPROGRAMM ZUM LESEN DER ZEIGERDATEI 
2310 ' 

2320 FOR J=1 TO ANZAHL 
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2330 GET #1,J 

2340 LET FIRST(J)=CVS(NUM$) 

2350 LET SCHLUEWO(J)=SCHW$ 

2360 NEXT J 
2370 RETURN 
2380 ' 

2390 REM AUSDRUCK UNTERPROGRAMM FUER SCHLÜSSELWORTE 
2400 ' 

2410 PRINT TABC25) SCHLUEWO$(l) 

2420 FOR J=2 TO ANZAHL 

2430 IF J/2=INTCJ/2) THEN PRINT 

2440 PRINT USING F$;J-l;:PRINT " ” SCHLUEWO$(J); 

2450 IF J/2=INT(J/2) THEN PRINT TAB(35) 

2460' NEXT J 
2470 RETURN 
2480 ' 

2490 REM UNTERPROGRAMM ZUM ABSPEICHERN DES ZEIGERS 
2500 ' 

2510 ' 

2520 LET ZAEHLER=ZAEHLER+1 
2530 PUT #2,ZAEHLER 
2540 RETURN 
2550 ' 

2560 REM UNTERPROGRAMM ZUM ABSPEICHERN DES ZEIGERS IN 
DER ARTIKELDATEI 

2570 ' 

2580 LSET NUM$=MKS$(FIRST(N+1)) 

2590 LSET SCHW$=SCHLUEWO$(N+l) 

2600 PUT #1,N+1 
2610 RETURN 
2620 ' 

2630 REM UNTERPROGRAMM ZUM SCHLIESSEN DER DATEIEN 
2640 ' 

2650 CLOSE #1 
2660 CLOSE #2 
2670 RETURN 
2680 ' 

2690 REM UNTERPROGRAMM 
2700 ' 

2710 LSET X$=MKS$(ZAEHL1) 

2720 PUT #2,KOPIE 
2730 RETURN 


Bild 14.3 Auffüllen der Artikeldatei mit Daten 
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Der Anwender gibt jetzt das erste Schlüsselwort ein. Es wird so¬ 
fort überprüft, ob es sich um ein zulässiges Wort handelt. Inner¬ 
halb der Zeilen 1480 bis 1630 kann dann die Zusammenfassung des 
Artikels mit maximal 250 Zeichen eingegeben werden. In den Zeilen 
1560 und 1570 wird das Ende der Eingabe abgefragt. Wird hier ein 
"Backspace" gefunden, so wird das letzte Zeichen gelöscht, und 
die zugehörigen Zeilen- bzw. Spaltenzähler werden entsprechend 
korrigiert. Die Eingabe kann mit RETURN abgeschlossen werden. 
Zeile 1620 dient dazu, die eingegebenen Zeichen auf den Bild¬ 
schirm auszugeben. In Zeile 1670 werden führende Leerräume abge¬ 
schnitten. In den Zeilen 1710 und 1720 wird die Zahl der zu spei¬ 
chernden Datensätze errechnet, die in die Datei ARTIKEL geschrie¬ 
ben werden müssen. 

Weil die neuesten Daten auch immer die letzten der gleichen Art 
sein müssen, wird NZEIG (der nächste Zeigerwert) auf Null ge¬ 
setzt. In Zeile 1830 wird geprüft, ob die gerade geschriebenen 
Daten die ersten zu einem Schlüsselwort sind. Wenn das der Fall 
ist, wird der Wert von ZAEHLER in die Zeigerdatei geschrieben. 
Damit sind wir in der Lage, die Datei selektiv auszuwerten. 

ZAEHL1 erhält den Wert von ZAEHLER und schreibt die damit defi¬ 
nierte Zahl von Datensätzen in die ARTIKEL-Datei. Innerhalb der 
Zeilen 2000 bis 2260 werden bei Bedarf die Zeiger auf den näch¬ 
sten gleichartigen Datensatz ermittelt. Dies geschieht nur dann, 
wenn die Werte von ZAEHL1 und KOPIE nicht gleich sind. Zeile 2080 
holt sich die Ordnungsnummer des ersten Datensatzes der nächsten 
Speichereinheit und übergibt den Wert an DUMMY. Wenn DUMMY 0 ist, 
dann setzt Zeile 2140 den nächsten Zeigerwert. Andernfalls müssen 
wir die Artikeldatei so lange lesen, bis DUMMY zu 0 wird. An¬ 
schließend wird der Benutzer gefragt, ob weitere Eingaben erfol¬ 
gen sollen. Wenn nicht, dann werden die Dateien geschlossen und 
das Programm beendet. 

Das Unterprogramm, das mit Zeile 2410 beginnt, ist etwas unge¬ 
wöhnlich aufgebaut. Es ist eine Schleife, die Indexzahlen und 
Schlüsselworte auf den Schirm schreibt, bevor die Zusammenfassun¬ 
gen eingegeben werden. Die Zeilen 2430 und 2450 legen fest, ob 
das nächste Wort rechts neben das bereits geschriebene oder in 
die nächste Zeile soll. Diese Zeilen werden nur dann ausgeführt, 
wenn J ein ganzzahliges Vielfaches von 2 enthält. Ansonsten wird 
immer eine neue Zeile gedruckt. 
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DAS LESEN DER DATEI 

Sind die Daten einmal auf der Diskette, so brauchen wir natürlich 
auch eine Möglichkeit, sie wieder zu lesen. Das Programm in Bild 
14.4 kann dazu verwendet werden. Es beginnt wieder mit der Ini¬ 
tialisierung der Variablen (1080 bis 1370). Der Wert für ZAEHLER 
wird wieder eingelesen, damit wir wissen, wo die Datei endet. 
Daran anschließend werden die Programmfunktionen angeboten. 

Die erste Funktion wird verwendet, um einen Gesamtausdruck der 
Datei zu erhalten (Zeile 1550). Der erste Datensatz enthält die 
Gesamtzahl aller gespeicherten Datensätze. Der nächste Wert ist 
ein Zeiger zum nächsten gleichartigen Datensatz, gefolgt von ei¬ 
ner Zahl, die angibt, wie viele 'Einzelteile' zu diesem Datensatz 
gehören. All dies brauchen wir, um den Gesamtausdruck zu erhal¬ 
ten. In Zeile 1590 wird ZAEHL1 so gesetzt, daß ein Zeiger auf den 
nächsten Wert für SCHLEIFE entsteht. Mit anderen Worten: Es wäre 
möglich, einfach sequentiell die ganze Datei auszugeben, ohne 
noch irgend etwas zu lesen. Warum lesen wir diesen Wert trotzdem? 
Die Antwort ist recht einfach. Wenn der Wert von ZAEHL1 kleiner 
ist als die Gesamtzahl der Datensätze, so muß weitergelesen wer¬ 
den. Mit der Schleife in den Zeilen 1570 bis 1610 holen wir alles 
aus der Datei. 


1000 REM 22. MAI 83 

1010 REM DIESES PROGRAMM DIENT ZUM AUSLESEN 
1020 REM DER FACHARTIKELDATEI 
1030 ' 

1040 REM INITIALISIERUNG 
1050 ' 

1060 REM SOROC TERMINAL 
1070 ' 

1080 DEF FNC$(ZEILE,SPALTE)=CHR$(27)+CHR$(61)+CHR$(ZEILE+ 
31)+CHR$(SPALTE+31) 

1090 LET LOESCH$=CHR$( 27 )+CHR$( 42 ) 

1100 LET MSPALTE=79 
1110 ' 

1120 LET GENAU=4 
1130 LET ALPHA=25 
1140 LET RSIZE=GENAU+ALPHA 
1150 LET F$="##" 

1160 ' 
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1170 REM ÖFFNEN DER DATEIEN 
1180 ' 

1190 OPEN "R",#l,"ZEIGER",RSIZE 

1200 FIELD #1, GENAU AS NUM$,ALPHA AS SCHLW$ 

1210 ' 

1220 REM DUMMY-DATENSATZ HOLEN, DAMIT REST GELESEN WERDEN 
KANN 

1230 ' 

1240 GET #1,1 

1250 LET ANZAHL=CVS(NUM$) 

1260 DIM FIRST(ANZAHL), SCHLUEWO$(ANZAHL) 

1270 LET SCHLUEWO$(1)=SCHLW$ 

1280.' 

1290 GOSUB 1800: ZEIGERDATEI LESEN 
1300 ' 

1310 OPEN "R",#2,"ARTIKEL",GENAU 
1320 FIELD #2,GENAU AS X$ 

1330 GET #2,1 

1340 LET ZAEHLER=CVS(X$): REM ANZAHL DER GESP. DATENSÄTZE 
1350 ' 

1360 PRINT LOESCH$ 

1370 GOSUB 1910: REM AUSGABE DER SCHLÜSSELWORTE 
1380 ' 

1390 REM EINGABE 
1400 ' 

1410 PRINT 
1420 PRINT 

1430 PRINT ”1.AUSGABE DER GESAMTDATEI 2.SCHLÜSSELWORTSUCHE” 
1440 PRINT ”3.PROGRAMMENDE": PRINT 
1450 PRINT "WÄHLEN SIE": 

1460 T$=INPUT$(1) 

1470 PRINT T$ 

1480 LET N=VAL(T$) 

1490 IF N<1 OR N>3 THEN PRINT CHR$(7) CHR$(13);:GOTO 1450 

1500 IF N=2 THEN 1620 

1510 IF N=3 THEN GOSUB 2020:END 

1520 ' 

1530 REM GESAMTE DATEI AUSGEBEN 
1540 ' 

1550 LET ZAEHL1=3 
1560 PRINT LOESCH$ 

1570 GOSUB 2070: REM ZAHLENUMWANDLUNG 
1580 LET ZAEHL1=ZAEHL1+2 
1600 LET ART$="" 
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1610 IF ZAEHL1<ZAEHLER THEN 1570 ELSE 1360 
1620 ' 

1630 REM LESEN NACH SCHLÜSSELWORT SORTIERT 
1640 ' 

1650 PRINT: PRINT 

1660 INPUT "GEBEN SIE DIE KENNZAHL DES SCHLÜSSELWORTS EIN" 

,N 

1670 IF N<1 OR N>ANZAHL-1 THEN PRINT CHR$(7):GOTO 1660 
1680 LET N=N+1 
1690 PRINT LOESCH$ 

1700 LET ZAEHL1=FIRST(N) 

1710 IF ZAEHL1=0 THEN PRINT CHR$(7) "NICHTS GESPEICHERT”: GO 
SUB 2350: GOTO 1360 
1720 LET DUMMY=ZAEHL1 
1730 LET ZAEHL1=ZAEHL1+1 
1740 GOSUB 2070 
1750 GOSUB 2140 
1760 GET #2,DUMMY 
1770 LET ZAEHL1=CVS(X$) 

1780 IF ZAEHL1=0 THEN PRINT CHR$(7) "KEINE WEITEREN DATEN": 

GOSUB 2350:GOTO 1360 
1790 GOTO 1720 
1800 ' 

1810 REM UNTERPROGRAMMTEIL 
1820 ' 

1830 REM LESEUNTERPROGRAMM FUER DIE ZEIGERDATEI 
1840 ' 

1850 FOR J=1 TO ANZAHL 

1860 GET #1,J 

1870 LET FIRSTCJ)=CVS(NUM$) 

1880 LET SCHLUEWO$(J)=SCHLW$ 

1890 NEXT J 
1900 RETURN 
1910 ' 

1920 REM AUSGABEROUTINE FUER DIE SCHLÜSSELWORTE 
1930 ' 

1940 PRINT TAB(25) SCHLUEWO$(l) 

1950 FOR J=2 TO ANZAHL 

1960 IF J/2=INT(J/2) THEN PRINT 

1970 PRINT USING F$;J-l;:PRINT SCHLUEWO$ 

1980 IF J/2=INT(J/2) THEN PRINT TAB(35) 

1990 NEXT J 
2000 RETURN 
2010 ' 
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2020 REM UNTERPROGRAMM ZUM DATEI SCHLIESSEN 
2030 ' 

2040 CLOSE #1 
2050 CLOSE #2 
2060 RETURN 
2070 ' 

2080 REM UNTERPROGRAMM ZUR ZAHLENSEPARATION 
2090 ' 

2100 GET #2,ZAEHL1 
2110 LET SEP=CVS(X$) 

2120 LET SCHLEIFE=INT(SEP) 

2130 RETURN 
2140 ' 

2150 REM LESEN UND SCHREIBEN DER ARTIKELDATEI 
2160 ' 

2170 LET ART$="" 

2180 FOR J=1 TO SCHLEIFE 
2190 GET #2,ZAEHL1+J 

2200 LET ART$=ART$+X$ 

2210 NEXT J 
2220 ' 

2230 LET ZAEHL1=ZAEHL1+SCHLEIFE 
2240 LET FLAG=0 
2250 ' 

2260 FOR J=1 TO LEN(ART$) 

2270 PRINT MID$(ART$,J,1) 

2280 FLAG=FLAG+1 

2290 IF FLAG<MSPALTE-10 THEN 2330 

2300 IF MID$(ART$,J,1)=” ” THEN PRINT:FLAG=0 

2310 IF MID$(ART$,J,1)="," THEN PRINT:FLAG=0 

2320 IF MID$(ART$,J,1" THEN PRINT:FLAG=0 

2330 NEXT J 

2340 ' 

2350 PRINT:PRINT 

2360 PRINT "WEITER —> DRÜCKEN SIE EINE TASTE"; 
2370 T$=INPUT$(1) 

2380 PRINT CHR$(13) SPACE$C35) CHR$(13); 

2390 ' 

2400 RETURN 


Bild 14.4 Auslesen der Artikeldatei 
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Die Bildschirmausgabe wird von dem Unterprogramm in Zeile 2140 
übernommen. Zunächst wird ART$ zu 0 initialisiert. Dann liest ei¬ 
ne Schleife (2180 bis 2210) den Text und füllt ART$ damit auf. 
Eine weitere Schleife wird dazu verwendet ART$ auszudrucken. Wir 
hätten dies einfach mit PRINT ART$ tun können. Der Text wäre dann 
aber willkürlich getrennt auf dem Schirm erschienen. Statt dessen 
haben wir eine Variable FLAG eingeführt, die uns hilft, natürli¬ 
che Trennstellen (Kommas, Leerräume, Doppelpunkte) zu finden. Die 
Suche nach solchen Stellen beginnt, wenn nur noch 10 Zeichen in 
einer Zeile Platz haben (70 Zeichen sind dann schon geschrieben 
worden). Nachdem die Trennungsmöglichkeit gefunden worden ist, 
wird CR LF ausgegeben und das nächste Wort steht am Anfang der 
nächsten Zeile. 

In Zeile 1610 wird entschieden, ob noch mehr zu lesen ist oder 
nicht. Wenn nicht, dann kehrt das Programm zum Menü in Zeile 1360 
zurück. 


SELEKTIVES LESEN 

Wenn der Anwender einen nach einem Stichpunkt ausgerichteten Aus¬ 
druck haben möchte, dann läuft das Programm über die Zeilen 1650 
bis 1790. Zuerst wird die Indexnummer des Schlüsselwortes einge¬ 
geben und geprüft. N muß inkrementiert werden um den richtigen 
Stichpunkt zu erhalten. In Zeile 1700 wird die erste Ordnungsnum¬ 
mer des Datensatzes, der zu diesem Schlüsselwort (= Stichpunkt) 
gespeichert wurde, aus der Zeigerdatei geholt. Ist diese Zahl 
gleich 0, so wurde unter diesem Stichpunkt noch nichts abgespei¬ 
chert, und das Programm kehrt zum Menü zurück. 

Wird eine Zahl ungleich 0 gefunden, dann erhält DUMMY ihren Wert 
zugewiesen, und ZAEHL1 wird inkrementiert, damit wir auch den 
Wert für SCHLEIFE erhalten. Das Programm holt sich dann die Ord¬ 
nungsnummer des nachfolgenden Datensatzes und weist sie ZAEHL1 
zu. Wenn ZAEHL1 0 enthält, sind keine weiteren Datensätze vorhan¬ 
den. Andernfalls wird, wie gerade beschrieben, die Datei weiter 
ausgelesen, bis schließlich eine Null die Rückkehr zum Menü er¬ 
laubt. Die dritte Funktion schließt die Dateien und beendet das 
Programm. 
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ÜBUNGEN 

1. Schreiben Sie die zuletzt gezeigten Programme so um, daß so 
wenig Konstanten wie möglich verwendet werden. 

2. Nachdem Sie mit Punkt 1 fertig sind, erweitern Sie die Pro¬ 
gramme um Fehlerbehandlungs-Routinen und machen Sie sie da¬ 
durch 'narrensicher'. 

3. Wie würden Sie das Programm ändern, damit eine Länge von mehr 
als 250 Zeichen für die Zusammenfassungen verwendet werden 
kann? 
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ANHANG 


ASCII-CODES 

Nachfolgend finden Sie eine Übersicht aller ASCII-Codes. Einige 
davon sind nicht darstellbare Steuerfunktionen. Ihre Funktion 
wird stichwortartig beschrieben. 


Dezimal 

ASCII 

Dezimal 

ASCII 

0 

NULL 

30 

nicht darstellbar 

1 

CTRL-A 

31 

nicht darstellbar 

2 

CTRL-B 

32 

Leerraum 

3 

CTRL-C 

33 

t 

4 

CTRL-D 

34 

" 

5 

CTRL-E 

35 

# 

6 

CTRL-F 

36 

$ 

7 

CTRL-G Tongeber 

37 

% 

8 

CTRL-H Backspace 

38 

& 

9 

CTRL-I Tabulator 

39 

r 

10 

CTRL-J Zeilenvorschub 

40 

( 

11 

CTRL-K 

41 

) 

12 

CTRL-L Blattvorschub 

42 

* 

13 

CTRL-M Wagenrücklauf 

43 

+ 

14 

CTRL-N 

44 

9 

15 

CTRL-0 

45 

- 

16 

CTRL-P 

46 

# 

17 

CTRL-Q 

47 

/ 

18 

CTRL-R 

48 

0 

19 

CTRL-S 

49 

1 

20 

CTRL-T 

50 

2 

21 

CTRL-U 

51 

3 

22 

CTRL-V 

52 

4 

23 

CTRL-W 

53 

5 

24 

CTRL-X 

54 

6 

25 

CTRL-Y 

55 

7 

26 

CTRL-Z 

56 

8 

27 

ESC 

57 

9 

28 

nicht darstellbar 

58 

: 

29 

nicht darstellbar 

59 

• 
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ASCII-Codes 


Dezimal 

ASCII 

Dezimal 

ASCII 

60 

< 

94 

A 

61 

= 

95 


62 

> 

96 

% 

63 

? 

97 

a 

64 

@ deutsch: § 

98 

b 

65 

A 

99 

c 

66 

B 

100 

d 

67 

C 

101 

e 

68 

D 

102 

f 

69 

E 

103 

g 

70 

F 

104 

h 

71 

G 

105 

i 

72 

H 

106 

3 

73 

I 

107 

k 

74 

J 

108 

1 

75 

K 

109 

m 

76 

L 

110 

n 

77 

M 

111 

o 

78 

N 

112 

P 

79 

0 

113 

q 

80 

P 

114 

r 

81 

Q 

115 

s 

82 

R 

116 

t 

83 

S 

117 

u 

84 

T 

118 

V 

85 

U 

119 

w 

86 

V 

120 

X 

87 

W 

121 

y 

88 

X 

122 

z 

89 

Y 

123 

{ deutsch: ä 

90 

Z 

124 

| deutsch: ö 

91 

[ deutsch: Ä 

125 

} deutsch: ü 

92 

\ deutsch: ö 

126 

deutsch: ß 

93 

] deutsch: ü 

127 

DEL Zeichen löschen 
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ST ICHWORTVERZEICHNIS 


A 



Dateipuffer 

184 

ABS 


105 

Dateityp 17, 

162 

Addition 


103 

Dateizugriff, wahlfreier 

179 

Algorithmus 


43 

Daten, numerische 

95 

AND 


90 

Datensatz 

180 

Arithmetische Operatoren 


102 

Datensatzlänge 

205 

- Bearbeitungsreihenfolge 


104 

Datensatzzäh1er 

205 

Array 


113 

Datenübergabe zwischen Pro¬ 


Artikeldatei 


280 

grammen 

244 

ASC 


130 

DEF FN 

149 

ASCII 

123, 

292 

DEFDBL 

100 

ATN 


106 

DEFINT 

100 




DEFSNG 

100 

B 



DIM 

111 

BAS-Dateien 


17 

DIR 

16 

Basic laden 


18 

Direkte Cursor-Positionierung 

144 

BDOS 


250 

Direkter Modus 

19 

Befehlsmodus 


19 

Diskette 

159 

Benutzerdefinierte Funktionen 

149 

Disketten-Datei 

161 

Bildschirm löschen 


128 

Division 

103 

BIOS 


250 

Dokumentation 

270 

Bubble-sort-Methode 

217, 

220 

Doppelte Genauigkeit 

97 

r 



Druckerausgabe 

38 

i» 

CCP 


250 

E 


CHAIN 


241 

EDIT 

58 

CHR$ 


127 

Einfache Genauigkeit 

97 

CLOSE # 


165 

EOF 

171 

COM 

17, 

162 

ERA 

253 

Command-Modus 


19 

ERL 

270 

COMMON 


244 

ERR 

270 

CONT 


264 

EXP 

106 

COS 


106 

Exponent 

103 

CP/M 


249 



CPU 


249 

F 


Cursor 

15, 

143 

Fehlerbehebung 

266 

- bewegen 

59, 

143 

Fehlersuche 

263 

Cursorpositionierung 


142 

Feld 

181 

CVD 


197 

FIELD 

183 

CVI 


196 

FILES 

19 

CVS 


196 

FIX 

106 




Fließkommazahlen 

96 

D 



FOR/TO/NEXT 

75 

DATA/READ 


144 

FOR/TO/NEXT/STEP 

78 

Datei 



FRE 

106 

- BAS-Datei 


17 

Funktionen 


- Initialisierung 


277 

- benutzerdefinierbare 

149 

- lesen 


286 

- Standardanwahl 

139 

- sequentielle 

159, 

162 



Dateiname 


17 
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G 

Ganze Zahlen 95 

Genauigkeit 96, 99 

- doppelte 97 

- einfache 97 

GET 186, 194 

Global definierte Variable 99 

GOSUB 138 

GOTO 68 

Grafische Darstellungen 144 

I 

IF/THEN 71 

IF/THEN/ELSE 88 

Initialisierung 44 

INPUT 52 

- numerische Variablen 52 

- Stringvariablen 53 

INPUT$ 131 

INPUT# 132 

INT 106 

Intervall-Halbierungsmethode 227 
IOBYTE 257 

K 

Kaltstart 252 

Kemprogramm 260 

KILL 172 

L 

LEFT$ 125 

LEN 126 

Lesen 

- Datei 286 

- selektives 290 

LET 47 

Lineares Suchen 226 

LIST 22 

LOAD 39 

LOG 107 

Logische Operatoren 19 

-AND 90 

- OR 92 

LPRINT 38 

LSET 184 

H 

Mantisse 96 

Matrizen 109 

- numerische 109 

- zweidimensionale 112 

MBasic 5, 19 

Menü 139 

MERGE 259 


Microsoft Basic-80 

5 

MID$ 

125 

Mikroprozessor 

117 

MKD$ 

194 

MKI$ 

194 

MKS$ 

194 

N 


Nachricht ausgeben 

56 

NAME 

173 

Negation 

103 

NEXT 

75, 78 

Numerische Daten 

95 

Numerische Variablen 

46 

O 


ODER 

92 

ON ERROR GOTO 

266 

ON ERROR GOTO 0 

266 

ON GOTO 

85 

OPEN # 

165 

OPEN "R" 

190 

Operatoren 


- arithmetische 

102 

- logische 

90 

OR 

92 

P 


PEEK 

255 

PIP 

253 

POKE 

257 

PRINT 

20, 27, 30 

PRINT USING 

35 

Programm 

21 

-abschluß 

45 

- ändern 

24 

- ausführen 

22 

-beschreibung 

270 

Programmierung 


- Arbeitsphasen 

43 

- Ausgabe 

45 

- Eingabe 

44 

- Initialisierung 

44 

- Verarbeitung 

45 

Programm, Kommentare 

76 

-konzept 

275 

-modus 

23 

- speichern 

38 

- Standardablauf 

67 

- unterbrechen 

67 

-zeile 

22 

-zeile einfügen 

24, 26 

PUT 

186 
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R 


RANDOMIZE 

107 

READ 

144 

Rechengenauigkeit 

96 

Register 

117 

REM 

76 

RENUM 

26 

RESTORE 

145 

RESUME 

267 

RETURN-Taste 

15 

RIGHT$ 

125 

RND 

107 

RSET 

184 

RUN 

23 

S 


SAVE 

38 

Schleifen 

67 

- bedingt 

69 

- verschachtelt 

79 

Schlüsselwort 

20 

Sektor 

159 

Sequentielle Dateien 

159 

She11-Metzner-Sortiermethode 

222 

Simulation 

233 

SIN 

108 

Skip-sequentia1-Dateien 

203 

SORTIEREN 

217 

SPACE$ 

130 

Sprunge 

67 

Spuren (tracks) 

159 

SQR 

108 

STAT 

252 

Sternchen 

17 

STEP 

78 

STOP 

264 

STR$ 

130 

String 

31 

-konstante 31 

, 50 

-s zusammensetzen 

54 

-variablen 46 

, 51 

STRING$ 

236 

Subtraktion 

103 

Suchen 

217 

- lineares 

226 

-methoden 

226 

- mit Intervallhalbierung 

227 

SWAP 

219 

Syntax error 

19 

SYSGEN 

251 

SYSTEM 

169 


T 

TAB 33, 35 

TAN 108 

THEN 70 

TPA 250 

TROFF 265 

TRON 265 

TYPE 169 

Typvereinbarungszeichen 100 

U 

Umsatzsteuerberechnung 82 

UND 90 

Unterprogramm 137 

V 

VAL 129 

Variablen 46 

-name 50 

- numerische 46 

- Stringvariablen 46 

Verarbeitungsgeschwindigkeit 117 
Verzweigung, bedingte 69 

W 

Wahlfrei zugreifbare Datei 179 

Warmstart 252 

WHILE/WEND 83 

WRITE # 164 

Z 

Zahlen 

- Festkommazahlen 95 

- Fließkommazahlen 96 

- ganze 95 

Zeichen 

- ändern 59 

- einfügen 60 

- löschen 61 

- suchen 59 

Zeichenketten 

- Befehle 126 

- Konstante 29 

- Operatoren 124 

- Variable 52 

- Vergleich 124 

Zeile 

- ansehen 59 

- löschen 25 

Zeileneditor 58 

Zinsberechnung 114 
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BASK-80 

Und cp/m 


Wie man Personal Computer programmiert - 
ein Lehrbuch, das Sie von den Anfängen bis zur 
sicheren Beherrschung von BASIC begleitet 



Es ist die Absicht dieses Buches, 
dem Leser zu zeigen, wie Personal 
Computer in Basic programmiert 
werden. Der Untersehied zu vielen 
anderen Lehrbüchern ist vor allem 
in zwei Punkten zu sehen: 

1. Das Buch orientiert sieh an ei¬ 
nem bestimmten Basic-Dia¬ 
lekt. Dies erlaubt die eingehen¬ 
dere Behandlung von speziel¬ 
len Eigenschaften, wie zum 
Beispiel das Erstellen von Da¬ 
teien. Das vorliegende Lehr¬ 
buch zeigt hier alle vorhande¬ 
nen Möglichkeiten auf. So 
werden sowohl die konventio¬ 
nellen Datei formen (sequen¬ 
tielle und wahlfreie Zugriffs¬ 
form) als auch eine Kombina¬ 
tion aus beiden Zugriffsfor- 

/ men (skip sequential) behan- 
1 delt. 

2. Das Buch geht von einem spe¬ 
ziellen Betriebssystem aus. 
Dies wird in der sonstigen Lite¬ 
ratur meist völlig vernachläs¬ 


BASIC-80 
UND CP/M 


sigt, obwohl kein Basic ohne 
Unterstütztendes Betriebssy¬ 
stem arbeitsfähig ist. Außer 
dem ist es als wesentlich zu be 
trachten, daß der Program¬ 
mierer beide Programmsyste- 
nie und ihr Zusammenwirken 
verstanden hat. 

Bei dem beschriebenen Basic hau 
delt es sich um das derzeit ge¬ 
bräuchlichste und am häufigsten 
verwendete Microsoft Basic-80 
Das beschriebene Grundbetriebs¬ 
system CP/M ist zu einem vielver¬ 
wendeten Industriestandard ge¬ 
worden. In vielen Fällen, in denen 
dem Leser nicht genau die be 
schriebene Konfiguration zur Vei 
fügung steht, kann man festsiel 
len, daß auf dem Rechner ein 
mehr oder minder ähnliches Be 
triebssystem läuft. 

Das Buch geht von der Grundidee 
aus, daß das Programmieren am 
leichtesten zu erlernen ist, wenn 
man von Anfang an Programme 


schreibt. Deshalb enthält jedes 
Kapitel einen Teil mit praktischen 
Übungen. Die Programme, die im 
jeweiligen Teil vorgestellt werden, 
stellen eine Grundlage für die zu 
erlernenden neuen Konzepte dar. 
Das Buch versucht, das Wie und 
Warum der jeweiligen Program¬ 
miermethode zu erklären. Überall 
dort, wo dies notwendig ist, wird 
dem Leser erklärt, welche Vor- 
und Nachteile eine bestimmte 
Methode hat. Dies trägt dem Um¬ 
stand Rechnung, daß es ein großer 
Unterschied ist, ob eine Methode 
nur auswendig gelernt oder aber 
verstanden wird. Darüber hinaus 
enthält das Buch Kapitel, in denen 
Sortier- und Such verfahren, Si¬ 
mulation sowie das CP/M-Be- 
triebssystem beschrieben werden. 
Das Buch schließt mit einem Pro¬ 
gramm, das nahezu alle beschrie¬ 
benen Befehle miteinander ver¬ 
knüpft. Dies ist für den Leser eben¬ 
so wertvoll wie auch lehrreich. 
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